
NASA TN D-1737 


<c 

GO 

<x. 


A GENERAL IBM 704 OR 7090 
COMPUTER PROGRAM FOR 
COMPUTATION OF CHEMICAL 
EQUILIBRIUM COMPOSITIONS, 
ROCKET PERFORMANCE, AND 
CHAPMAN-JOUGUET DETONATIONS 

SUPPLEMENT I ■ ASSIGNED 
AREA-RATIO PERFORMANCE 

by Sanford Gordon and Frank J. Zeleznik 
Lewis Research Center 
Cleveland, Ohio 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION • WASHINGTON, D. C. • OCTOBER 1963 


TECHNICAL NOTE D-1737 


A GENERAL IBM 704 OR 7090 COMPUTER PROGRAM 

FOR COMPUTATION OF CHEMICAL EQUILIBRIUM 

COMPOSITIONS, ROCKET PERFORMANCE, AND 

CHAPMAN-JOUGUET DETONATIONS 

SUPPLEMENT I - ASSIGNED AREA-RATIO PERFORMANCE 

By Sanford Gordon and Frank J. Zeleznik 

Lewis Research Center 
Cleveland, Ohio 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 


CONTENTS 


Page 

SUMMARY 1 

INTRODUCTION 1 

SYMBOLS 1 

INTERPOLATION OF PARAMETERS 2 

Use of Derivatives for Interpolation ..... 2 

Interpolation Equations 3 

Accuracy of Interpolation 4 

COMPUTER PROGRAM 5 

Area-Ratio Interpolation 5 

Optional Reading of Thermal Data from Cards 5 

H,P Problem (Combustion Properties Only) 

Specifying Reactants in Terms of Moles 

Shift Functions • 

Corrections to Reference 1 8 

PROGRAM INPUT DATA 8 

Input for Area-Ratio Interpolation 8 

Input for H,P Problem 8 

Input for Specifying Reactants in Terms of Moles 9 

AVAILABILITY OF PROGRAM 9 

APPENDIXES 

A - PROGRAM LISTING FOR IBM 7090 10 

MAIN PROGRAM 10 

Subroutine SEARCH 15 

Subroutine BYPASS 19 

Subroutine INPUT 21 

Subroutine C0RE2 25 

Subroutine GAUSS 34 

Subroutine MATRIX 37 

Subroutine C0RE3 ..... 41 

Subroutine C0RE4 45 

Subroutine OUT 49 

Subroutine ONCE 52 

Subroutine SPEC 53 

Subroutine COMP 54 

Subroutine C0RE5 55 

Subroutine HEAD 58 

Subroutine PERDER 59 

Subroutine PERDEY 59 

Subroutine READ 60 

Subroutine PERPAR • 60 

Subroutine VAR 61 


Subroutine SANFO 63 

Subroutine SET 64 

Subroutine MGAUS 65 

Subroutine EXITT 65 

B - PROGRAM LISTING FOR BCREAD (A,B) AND BCDUMP (A,B) 66 

C - CORRECTIONS TO THE IBM 704 PROGRAM 69 

D - SHIFT FUNCTIONS 71 

REFERENCES 72 


A GENERAL IBM 704 OR 7090 COMPUTER PROGRAM FOR COMPUTATION 


OF CHEMICAL EQUILIBRIUM COMPOSITIONS, ROCKET PERFORMANCE, 
AND CHAPMAN -JOUGUET DETONATIONS 
SUPPLEMENT I - ASSIGNED AREA-RATIO 
PERFORMANCE 


By Sanford Gordon and Frank J. Zeleznik 


SUMMARY 

An addition to the computer program of NASA TN D-1454 is given that permits 
calculations of theoretical rocket performance for assigned area ratios. The use 
of thermodynamic derivatives to increase accuracy of interpolation in a specified 
range is discussed. A sample problem is included to illustrate the use of the 
program and to indicate the accuracy of the calculations . 


INTRODUCTION 

For various one-dimensional analyses involving rocket engines, theoretical 
performance data are often desired for specific area ratios. These data cannot 
he obtained in the same direct fashion as data for assigned pressure ratios (see 
ref. l), inasmuch as area ratio is not a thermodynamic state function. However, 
by use of thermodynamic derivatives given in reference 2, data at assigned pres- 
sure ratios may be interpolated with excellent accuracy to give data for assigned 
area ratios . 

This report presents an addition to the IBM 7090 program given in reference 
1 to permit calculations at assigned area ratios . Several other minor modifica- 
tions to the program were also made. These modifications are described under 
the sections "Optional Reading of Thermal Data From Cards," "H,P Problem ^(Com- 
bustion Properties Only)," "Specifying Reactants in Terms of Moles," and "Cor- 
rections to Reference 1." 


SYMBOLS 

A^/w nozzle throat area per unit mass flow rate, (sq. in)(sec)/lb 

a n ,l3 n ,c n- ,<i n polynomial coefficients 


Cp thrust coefficient 

c 32.174 characteristic velocity, ft/sec 

h enthalpy of reaction products per unit mass of reactant, cal/g 

h c combustion enthalpy of reaction products per unit mass of reactant, cal/g 
I specific impulse with ambient and exit pressures equal, 

(lb force )( sec )/lb mass 

■^vac specific impulse into vacuum (ambient pressure equal to zero), 

(lb force )( sec )/lb mass 
M molecular weight 

P c chamber pressure, lb/sq in. abs 
P c /P ratio of chamber pressure to exit pressure 

T temperature, °K 

x,y any function 

£ ratio of exit area to throat area 


INTERPOLATION OF PARAMETERS 
Use of Derivatives for Interpolation 

As indicated in reference 2, derivatives can be used to increase the accu- 
racy of interpolation in a specified range. This is true because each derivative 
is approximately equivalent to having an additional point in the specified inter- 
val. For example, if only the functions are known at two points, only a linear 
interpolation equation is possible . However , if the first derivatives of these 
functions are also knovn at the two points, a cubic polynomial may be derived. 
With second derivatives also known at the two points, a quintic polynomial may be 
derived. 

The general form of the equations used to determine the quintic polynomial 
coefficients a n are 
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The six coefficients a n are determined by the solution of the six simul- 
taneous equations obtained from equations (l), ( 2 ), and (3), where each equation 
is evaluated for two values of x. With coefficients determined, equation (l) 
is then used to obtain interpolated values of y for other values of x. 

When second derivatives are not available, cubic polynomial coefficients 
a n (n = 0, 1, 2, 3) are obtained from equations (l) and (2) (with terms a 4 and 
a 5 omitted) , where each equation is evaluated for two values of x. 


Interpolation Equations 

The equations used to obtain the interpolated parameters are as follows: 
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Equations (4) to (7) are of the form of equation (l). In reference 2, the 
logarithmic form for the functions P c /P , T, M, and e and the form Jr are 
shown to be preferable to the linear form for accuracy of interpolation. The 
coefficients in equations (4), (5), and (6) are determined by means of equations 
(l) and (2), and the coefficients in equation (7) by means of equations (l), (2), 
and (3), as described in the previous section. The order of calculation is, 
first, to interpolate a value of pressure ratio corresponding to an assigned area 
ratio by using equation (4). This interpolated value of pressure ratio is then 
used in equations (5), (6), and (7) to interpolate corresponding values of T, M, 
and I. The interpolated values of P c /P and I are then used in equations (8) 
to (10) together with the assigned value of e and values of h Q and c* 
known from the combustion and throat conditions to obtain corresponding interpo- 
lated values for C-p, I yac , and h. 


Accuracy of Interpolation 

An indication of the accuracy of interpolation may be obtained from a sample 
problem. It is expected that accuracy of interpolation should be least for those 
propellants that have considerable dissociation of combustion products due to 
the effect of changing compositions during expansion. Therefore, a propellant 
that has a high combustion temperature, 4415° K, and consequently considerable 
dissociation was selected for the sample problem. The fuel is a 50-50 mixture by 
weight of hydrazine and unsymmetrical dimethyl hydrazine, and the oxidizer is 
fluorine. The propellant is at an oxidant -to -fuel weight ratio of 2.5 and a 
chamber pressure of 1000 pounds per square inch absolute. The same thermodynamic 
data were used as for the sample problems of reference 1. The schedule of as- 
signed area ratios selected is 2.5, 5, 10, 15, 25, 40, 50, 60, 100, 300, and 500, 
all on the divergent side of throat. The schedule of pressure ratios chosen to 
cover the range of these area ratios is 3, 10, 30, 100, 300, 1000, 3000, 10,000 
and 30,000. The results are given in tables I and II. Table I contains the 
results for combustion, throat, and the schedule of assigned pressure ratios for 
equilibrium composition during expansion. Table II contains the interpolated 
values of table I data for the schedule of assigned area ratios. 

To check the accuracy of the interpolated data, the interpolated pressure 
ratios of table II were read in as a new schedule of pressure ratios. The 
directly computed data for these pressure ratios are given in table III. A com- 
parison of tables II and III shows that all the interpolated data except vacuum 
specific impulse, temperature, and molecular weight are correct to all figures 
tabulated for all the assigned area ratios. Vacuum specific impulse is correct 
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to all figures tabulated except for the area ratio of 60, where it is off by only 
one unit in the last place . Temperature and molecular weight are also correct to 
all figures tabulated for about half of the area ratios . For the other area 
ratios, molecular weight differs by 1 to 3 units in the fifth figure and temper- 
ature by 1 or 2 units in the fourth figure. 

The same excellent accuracy of interpolation was obtained for several other 
problems checked. In general, it is felt that no closer spacing of initial pres- 
sures will be needed to obtain interpolated data that are good to about the same 
number of significant figures as tabulated in table I for the original data. 

To check the accuracy obtainable with fewer initial pressure ratios, a check 
similar to that given in tables I, II, and III was made, except for starting with 
a short pressure ratio schedule of 10, 100, 1000, and 10,000 (besides combustion 
and throat). In this case, specific impulse was correct to all figures tabulated. 
Vacuum specific impulse was correct to all figures tabulated except for area 
ratios of 10 and 25, where it was off by 0.1 pound-second per pound. Temperature 
was off from 0° to 7° and molecular weight from 0 to 0.017. Other problems that 
were checked gave about the same results. Therefore, for many cases, the short 
pressure ratio schedule will also permit excellent accuracy of interpolation. 

As expected, the same type of check for frozen composition performance gave 
even better interpolated results than the check for equilibrium composition per- 
formance due to the absence of the recombination effect on the data. 


COMPUTER PROGRAM 

In addition to the area-ratio-interpolation option, several modifications 
and corrections to the program of reference 1 are discussed in the following 
sections. Since the IBM 704 is no longer used at this Research Center, these 
changes to the program of reference 1 have been made for the IBM 7090 only, 
except for the few corrections to the IBM 704 program. 


Area-Ratio Interpolation 

In order to include the area-ratio-interpolation option in the program 
presented in reference 1, it was necessary to add the new routines SANFO, SET, 
MGAUS, and EXITT and also to make a few modifications in the existing routines 
MAIN PROGRAM, C0RE5, PERPAR, and VAR. The FORTRAN listing of the IBM 7090 
program containing these new routines and modifications is presented in appendix 
A. Those statements in the modified subroutines that differ from those of refer- 
ence 1, to permit area-ratio interpolation, are indicated by the typed words 
"area ratio" that appear to the right of the statements. 


Optional Reading of Thermal Data from Cards 

In addition to the program input to be discussed in the section PROGRAM 
INPUT DATA, thermodynamic data must be supplied to the program. These data are 
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assumed to be available as a master data tape that must be loaded onto tape 
handler number four at the start of computation and unloaded when the computa- 
tions have been completed. Since this master data tape is used for both reading 
and writing, it cannot be file-protected. Loading and unloading the data tape 
are time-consuming and costly. Unless a tape handler is available for the exclu- 
sive use of the thermodynamic data tape, it is more economical to make the data 
tape from binary cards than to stop the computer for loading and unloading the 
data tape. The following changes will permit operation in this fashion: For 

the IBM 7090 program, replace card number 123, page 87 of reference 1 (PAUSE 
11111) with 

REWIND 4 

5000 CALL BCREAD (DATA (44), DAIA(l) ) 

DATA(23) = DATA(26) 

WRITE TAPE 4, (DATA(I) , 1=1, 23) 

IF (MDATA(l)-MEND) 5000, 429, 5000 

Also remove card number 332, page 88 of reference 1 (PAUSE 77777). The corre- 
sponding change for the IBM 704 program involves replacing card number 106, 
page 50 of reference 1 (PAUSE lllll) with 

REWIND 4 

5000 CALL BCREAD (DATA(44), DATA(l)) 

DATA (23) = DATA( 26) 

WRITE TAPE 4, (DATA(l), 1=1, 23) 

S CLA DATA (l) 

S SUB END 

S TNZ*5000 

and removing card number 432, page 53 of reference 1 (PAUSE 77777). If these 
changes are made, the master data tape is no longer needed but the equivalent 
binary cards must be available. These can be made from the master data tape. 

These changes use the subroutine BCREAD (A,B) . This subroutine is part of 
the computer system at Lewis and is given in appendix B. Its only function is 
to read the absolute binary cards punched by a companion subroutine BCDUMP (A,B), 
which is also given in appendix B. These subroutines are given in FAP, with the 
assembled binary equivalents appearing to the left of each instruction. The 
BCREAD subroutine is assembled on four binary cards, while BCDUMP is on seven 
binary cards . 

In both subroutines the arguments A and B are the first and last words, 
respectively, to be read or punched, and the address of A must be less than or 
equal to the address of B. In FORTRAN, arrays are stored in reverse order. 
Therefore, in dumping or reading the array DATA (I), the last member of the ar- 
ray, DATA (44), is dumped or read first, since its address is the lowest of the 
entire array. Each binary card contains 22 words of information, and thus, 
since the data for each species require 23 words (see fig. 6 of ref. l), two 
cards are required for each species. The second of each pair of cards contains 
the first 22 words. The first card of each pair contains the first three words 
of the record, for identification purposes, plus the 23rd word. These two 
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subroutines are not essential and can be replaced by any equivalent subroutines 
or sequence of instructions . 

In the event thermal data are read in as binary cards, they are considered 
as part of the input and precede the input cards described in table V. The last 
pair of binary cards contains the word END in DATA (l). 


H,P Problem (Combustion Properties Only) 

A few modifications were made in the subroutines MAIN, C0KE2 , and HEAD in 
order to permit obtaining combustion properties for a series of pressures. Thes 
modifications are indicated in the program listings in appendix A by the letters 
"H,P" that appear to the right of the statements. 

A sample output for an H,P type of problem is given in table IV. The same 
thermodynamic data were used as for the sample problems in reference 1. The 
input for the H,P problem is discussed under PROGRAM INPUT DATA. 

While the program of reference 1 can produce the same type of combustion 
information when run as an H,S problem, data for only one assigned pressure 
rather than for a series of pressures can appear on the same output sheet. In 
addition, the H,P problem does not calculate throat data, as the H,S problem 
does, which are not needed when only combustion properties are desired. 


Specifying Reactants in Terms of Moles 

The subroutines MAIN, INPUT, OUT, and C0RE5 and the format of the reactant 
card (card type 1, table V) were modified in order to permit the option of speci 
fying either the number of moles or the relative weights of reactants . In the 
program of reference 1, only relative weights can be specified. The program 
modifications are indicated in the program listing in appendix A by the typed 
word "moles" appearing to the right of the appropriate statements. 

The modifications to the reactant card format are discussed under PROGRAM 
INPUT DATA. 


Shift Functions 

To avoid a possible source of error in the use of the four shift functions 
ALSF(N,X), ARSF(N,X) , LLSF(N,X), and LRSF(N,X) discussed on pages 24 and 25 of 
reference 1, it should be noted that these functions do not destroy the contents 
of the multiplier-quotient register C(M}), although C(MQ) may be altered as a 
result of the shifting. This fact is used in some portions of the program to 
avoid storing C(NR). Therefore, any routines written to replace these functions 
must not destroy C(M^). Appendix D presents the FAP coding for an acceptable 
subprogram of the function type that can be used to replace the four shift func- 
tions . 


Corrections to Reference 1 


Equation (47) of reference 1 is given incorrectly. It should he 
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Several errors in the IBM 7090 program appear in subroutines MAIN, C0RE2, 
INPUT, and C0RE4. In the program listing of these subroutines in appendix A, 
the corrected statements are indicated by the typed word "correction" that 
appears to the right of the statements . 


The corrections to the IBM 704 program are given in appendix C. 


PROGRAM INPUT DATA 

Table V presents six types of input cards. Five of these types (l, 2, 3, 
4, and 6) were discussed and given as table VIII in reference 1. The following 
sections discuss the changes in input for the area-ratio -interpolation option, 
the H,P problem, and the specification of reactants in terms of moles. 


Input for Area Ratio Interpolation 

The new type 5 card, the area-ratio schedule, permits area- ratio interpola- 
tion as an option. It should be noted that in the input of reference 1 only one 
blank card follows the schedule of P c /P (or P or T) . In the modified program 
presented herein, however, two blank cards follow the schedule of P /P 
(or P or T) if an area-ratio schedule is not included. 

If the interpolation is for area ratios all on the divergent side of the 
nozzle, a maximum of 13 assigned area ratios is permitted. If interpolation is 
for area ratios all on the convergent side or on both sides of the throat, a 
maximum of only 12 assigned area ratios is possible, since a dummy area ratio of 
unity is needed. On the area ratio schedule cards, the convergent -side area 
ratios must be first, followed by unity, and then the divergent -side area ratios. 
If only divergent -side area ratios are desired, they need not be preceded by 
unity. 

The schedule of assigned pressure ratios should be selected to cover the 
range of the area ratios desired. The pressure ratios, following combustion 
and throat, should be in ascending order. As in reference 1, 25 pressure ratios 
are still permitted if area ratio interpolation is not desired; however, o nl y 
11 pressure ratios in addition to combustion and throat are permitted when area- 
ratio interpolation is desired. As indicated in the section on"Accuracy of 
Interpolation ”,11 pressure ratios will usually be more than sufficient. 


Input for H,P Problem 

The H,P problem is specified by the code H,P on the problem card (card type 
3, table V). The rest of the input for the H,P problem is the same as for the 
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H,S problem except that in the former case the schedule cards (card type 4, 
table V) contain assigned pressures in atmospheres, whereas in the latter case 
the schedule cards contain assigned pressure ratios. 


Input for Specifying Reactants in Terms of Moles 

For the program of reference 1, columns 46 through 53 on the reactant card 
(card type 1, table IX, ref. l) were reserved for specifying relative weights 
of propellants. This reactant card has been modified to reserve columns 46 
through 52 for specifying relative weights or number of moles . If relative 
weights are being specified, column 53 is left blank. If the number of moles is 
being specified, the letter "M" (for moles) is keypunched into column 53. For 
each problem, either all of the reactants must be specified as moles or all of 
them must be specified as relative weights. 

Two examples of reactant cards with the new format are given in table VI. 
When specifying the reactants in terms of moles, the first 30 columns for 0t y 
o/f, and $F on the mixture card (card type 6, table V) may be left blank. In 
this event, the number of moles of fuel relative to oxidant is assumed by the 
program to be as given on the reactant cards. If, on the other hand, 0/F, , 

or $F is specified on the mixture card, the number of moles of fuel relative to 
oxidant is adjusted accordingly. 


AVAILABILITY OF PROGRAM 

As indicated on page 25 of reference 1, the source program decks will be 
made available to qualified computing centers if a written request is addressed 
to the authors at the Lewis Research Center. The IBM 7090 program supplied will 
include the changes given in this report. 


Lewis Research Center 

National Aeronautics and Space Administration 
Cleveland, Ohio, April 23, 1963 
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APPENDIX A 


PROGRAM LISTING FOR IBM 7090 


MAIN PROGRAM 

COMMON C 
EQUIVALENCE 

C G ( 1) , 

C ( 1 ) ) , 

( G ( 420 ) , 

C ( 420 ) ) 

0001 

0002 

0003 

0004 

0005 

EQUIVALENCE 

(ANSI 1) , 

C ( 42 1 ) ) , ( ANS ( 454 ) , 

C( 874) ) 

0006 

EQUIVALENCE 

(HSUM, 

C ( 424 ) ) , 

(SSUM, 

C ( 425 ) ) 

0007 

EQUIVALENCE 

( WTMOL » 

C ( 426 ) ) , 

(CP, 

C ( 42 7 ) ) 

0008 

EQUIVALENCE 

(DLMPT, 

C ( 428 ) ) , 

( DLMTP , 

C ( 429 ) ) 

0009 

EQUIVALENCE 

(GAMMA, 

C ( 430 ) ) , 

(ARATIO, 

C ( 43 1 ) ) 

0010 

EQUIVALENCE 

( VMACH, 

C ( 432 ) ) , 

(SP IMP, 

C ( 433 ) ) 

0011 

equivalence 

(VACI , 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

0012 

EQUIVALENCE 

(RHOI , 

C ( 437 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

0013 

EQUIVALENCE 

EQUIVALENCE 

(RHO, 
(T PI, 

C ( 439 ) ) 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

0014 

0015 

EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI , 

C ( 443 ) ) 

0016 

EQUIVALENCE 

EQUIVALENCE 

(T ETA, 
(ETA I, 

C ( 445 ) ) 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

0017 

0018 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C ( 450 ) ) 

0019 

equivalence 

(SIG I, 

C ( 451 ) ) , 

(EP SIG, 

C, ( 4 5 2 ) ) 

0020 

EQUIVALENCE 

EQUIVALENCE 

(AW SIG, 

( ANSL AB ( 1) 

C ( 453 ) ) 

, C( 875) ) , 

( AN SLAB ( 454 ) 

, C ( 1328) ) 

0021 

0022 

EQUIVALENCE 

( FORM ( 1 ) , 

C( 1329) ) , 

(FORM( 15) , 

C( 1343) ) 

0023 

EQUIVALENCE 

( ELMT ( I ) , 

C( 1344) ) , 

(ELMT (15) , 

C( 1358 ) ) 

0024 

EQUIVALENCE 

( LLMT ( I ) , 

C ( 1344 ) ) , 

( LLMT( 15) , 

C( 1358) ) 

0025 

EQUIVALENCE 

(DATA! I ) , 

C( 1359) ) , 

( D ATA ( 23 ) , 

C( 1381 ) ) 

0026 

EQUIVALENCE 

( MDAT A ( I ) , 

C ( 1359 ) ) , 

( MDAT A ( 2 3 ) 

, C ( 1 38 1 ) ) 

0027 

equivalence 

( EN ( 1 ) , 

C ( 1382 ) ) , 

( EN ( 90 ) , C 

(1471) ) 

0028 

EQUIVALENCE 

( ISYS, 

C ( 1472 ) ), 

( JEAN, 

C ( 1473 ) ) 

0029 

EQUIVALENCE 

( ACX , 

C( 1474) ) , 

( ACF , 

C ( 1475 ) ) 

0030 

EQUIVALENCE 

( AMX , 

C( 1476) ) , 

( AMF, 

C ( 1477 ) ) 

0031 

EQUIVALENCE 

(RHOX, 

C ( 1478 ) ) , 

(RHOF, 

C( 1479) ) 

0032 

EQUIVALENCE 

( COEFX ( I ) , 

C( 1480) 

), ( COEFX ( 20 ) , C ( 1499 ) ) 

o033 

EQUIVALENCE 

( OX ( 1 ) , 

C( 1500) ) , 

( DX ( 20 ) , 

C ( 1519) ) 

0034 

EQUIVALENCE 

(FORMLA( 1) 

, C ( 1520 ) ) 

, ( FORML A ( 18) , C ( 1 537 ) ) 

0035 

equivalence 

( MML A ( 1 ) , 

C( 1520) ) , 

( MML A (18) , 

C( 1537) ) 

0036 

EQUIVALENCE 

( PROD ( 1 ) , 

C ( 1 538 ) ) , 

( PROD ( 3 ) , 

C( 1540) ) 

0037 

EQUIVALENCE 

(SYSTM( 1 ) , 

C( 1541 ) ) , 

( SYSTM( 15) 

, C ( 1 555 ) ) 

0038 

EQUIVALENCE 

(MTSYS( 1 ) , 

C ( 1541) ) , 

(MTSYS( 15) , 

C( 1555) ) 

0039 

equivalence 

(OF, C ( 1 556 ) ) , 

(FPCT, C ( 1 557 ) ) 

0040 

EQUIVALENCE 

EQUIVALENCE 

(EQRAT, C ( I 558 ) ) 

(KODE, C ( I 559 ) ) , (KASE, C ( 1560) ) 

0041 

0042 

EQUIVALENCE 

(KONT, C ( 1 561 ) ) , 

(NF , 

C( 1562) ) 

0043 

equivalence 

(NO, 

C( 1563) ) , 

(NE, 

C( 1564) ) 

0044 

EQUIVALENCE 

EQUIVALENCE 

(NOEO, C ( 1 565 ) ) 
(BOX(l), C ( 1 77 1 ) ) , 

( BOX ( 15) , 

C ( 1785 ) ) 

0045 

0046 

EQUIVALENCE 

( BOF ( 1) , 

C( 1786) ) , 

(BOF( 15) , 

C( 1800) ) 

0047 

equivalence 

(HX, 

C ( 1 80 1 ) ) , 

(HF, 

C ( 1802 ) ) 

0048 

EQUIVALENCE 

( VXPLS, 

C( 1803) ) , 

( VXMIN, 

C( 1804) ) 

0049 

EQUIVALENCE 

( VFPLS, 

C ( 1805 ) ) , 

( VFMIN, 

C ( 1806 ) ) 

0050 

EQUIVALENCE 

(EN LN ( 1 ) , 

C( 1861) ) , 

(EN LN ( 90 ) , 

C ( 1950 ) ) 

0051 

equivalence 

(DEL N( 1 ) , 

C( 1951 ) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

0052 

EQUIVALENCE 

(HOI 1 ) , 

C ( 2041 ) ) , 

( HO ( 90 ) , 

C ( 2 1 30 ) ) 

0053 

EQUIVALENCE 

(S( 1) , 

C ( 2 1 3 1 ) ) , 

( S ( 90) , 

C12220) ) 

0054 

EQUIVALENCE 

(X( 1) , 

C ( 222 1 ) ) , 

( X ( 2 0 ) , 

C ( 2240 ) ) 

0055 

equivalence 

(DELTA(l), 

C ( 2241 ) ) , 

( DELTA ( 20 ) , 

C ( 2260 ) ) 

0056 

EQUIVALENCE 

( BO ( 1 ) , 

C ( 22 6 1 ) ) , 

(B0( 15) , 

C ( 2275 ) ) 

0057 

EQUIVALENCE 

(PO, 

C ( 2276 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

0058 

EQUIVALENCE 

(SC, 

C ( 2278 ) ) , 

(T LN, 

C ( 2279 ) ) 

0059 

equivalence 

(T, 

C ( 2280 ) ) , 

(AAY LN, 

C ( 228 1 ) ) 

0060 

EQUIVALENCE 

( AAY, 

C ( 2282 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

0061 

EQUIVALENCE 

(HC, 

C ( 2284 ) ) , 

(TC LN, 

C ( 2285 ) ) 

0062 

EQUIVALENCE 

(PCP( 1) , 

C ( 2286 ) ) , 

( PCP ( 25 ) , 

C ( 2 310 ) ) 

0063 

equivalence 

( DATUM ( 1 ) , 

C ( 23 1 1 ) ) , 

( DATUM ( 3 ) , 

C ( 2313 ) ) 

0064 

equivalence 

(PC, 

C ( 23 1 4 ) ) , 

(TC, 

C ( 2315 ) ) 

0065 

EQUIVALENCE 

( IPROB, 

C ( 2316 ) ) , 

( IFIXT, 

C ( 2317 ) ) 

0066 

EQUIVALENCE 

( IHS, 

C ( 2318 ) ) , 

( ICOND, 

C ( 2 319 ) ) 

0067 

equivalence 

( ISYM, 

C ( 2320 ) ) , 

( I PROD, 

C ( 232 1 ) ) 

0068 

EQUIVALENCE 

( IDID , 

C ( 2322 ) ) , 

(LCRUM, 

C ( 2323 ) ) 

0069 


10 


aQCDXCQCQCOOOCQcaUOUU 


c 

c 

B 1 


EQUIVALENCE 

( I DRM , 

C ( 2323 ) ) , 

( KDRUM , 

C ( 2324 ) ) 

0070 

EQUIVALENCE 

(L, 

C ( 2325 ) ) , 

(LI, 

C ( 2326 ) ) 

0C7 1 

equivalence 

(M, 

C ( 232 7 ) ) , 

(Ml, 

C ( 2328 ) ) 

0072 

EQUIVALENCE 

(N, 

C ( 2329) ) , 

(IQ, 

C ( 2 330 ) ) 

0073 

EQUIVALENCE 

( IC1, 

C ( 233 1 ) ) , 

( 102, 

C ( 2332 ) ) 

0074 

EQUIVALENCE 

( IQ3, 

C ( 2333 ) ) , 

( KM A T , 

C ( 2334 ) ) 

0075 

EQUIVALENCE 

( IMAT, 

C ( 2335 ) ) , 

( IUSE, 

C ( 2335 ) ) 

0076 

EQUIVALENCE 

( I ADD , 

C { 2336 ) ) , 

( I TNUMB , 

C ( 2337 ) ) 

0077 

EQUIVALENCE 

( ITAPE, 

C ( 2338 ) ) , 

(P, 

C ( 2 339 ) ) 

0078 

EQUIVALENCE 

( I DEBUG , 

C ( 2 340 ) ) , 

( IFROZ, 

C ( 2 34 1 ) ) 

0079 

equivalence 

( A ( 1 ) , 

C ( 2 342 ) ) , 

( A{ 1350) , 

C ( 369 1 ) ) 

0080 

EQUIVALENCE 

(COEFTK l) 

, C ( 3692 ) ) 

, (C0EFT1 ( 1350) , C ( 5041 ) ) 

0081 

EQUIVALENCE 

( C0EFT2 ( 1 ) 

, C ( 5042 ) ) , 

(C0EFT2( 1350) , C(6391)) 

0082 

EQUIVALENCE 

( COEFT ( 1 ) , 

C ( 6392 ) ) , 

(COEFT( 1350) , C ( 774 1 ) ) 

0083 

equivalence 

( ATOM ( 1 ) , 

C ( 7742 ) ) , 

( ATCM(303) , 

C ( 8044 ) ) 

0084 

EQUIVALENCE 

( M A TOM ( 1 ) , 

C ( 7742 ) ) , 

( M A TOM ( 303 ) 

, C ( 8044 ) ) 

0085 

EQUIVALENCE 

(KORE, C ( 8047 ) ) 



0086 

EQUIVALENCES!, DMT) 




0087 

EQUIVALENCE 

( HS » MHS ) , ( TS 

STS) , ( P T , MP T ) , ( TP , MTP ) 

, ( DET , MDET ) 

0088 

EQUIVALENCE 

( PROB , MPROB ) 

, (END, MEND) 



0089 

EQUIVALENCE 

( TMLM , MTMLM ) 

, ( BLK , MBLK ) 


0090, 


EQUIVALENCE(NAREA,C( 10607) ) 

EQUIVALENCE(SAREA( 1),C( 10608) ) , ( S ARE A ( 13) ,C( 10620) ) 

EQUIVALENCE ( IUNDER,C ( I062I ) ) 

EQUIVALENCE ( I OVER , C ( 10622 ) ) 

EQUIVALENCE { KSAN ,C ( 10623 ) ) 

EQUIVALENCE (WX,C( 10624 ) ) 

EQUIVALENCE ( WF , C ( 10625 ) ) 


H S=307362606C60 
T S=637362fc06060 
P T =477363606060 
T P=637347606060 
DET =2425634 56060 
END=254524606060 
BLK=OOCOOOC 00060 
0MIT=464431636060 
UNT =606060606060 
H P=307347606060 


j Area ratio 

Moles 

Moles 

Moles 


EQUIVALENCE (H P,MHP) 




H,P 






0091 

DIMENSION 

SARE A ( 13) 




Area 

DIMENSION 

G ( 20 , 2 1 ) , 

M 15,90) , 

EN ( 90 ) , 

EN LN ( 90 ) 

0092 

DIMENSION 

DEL N ( 90 ) , 

HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

0093 

DIMENSION 

DELTA ( 20 ) , 

B0( 15) , 

PC P ( 25 ) , 

PROD ( 3 ) 

0094 

C I MENS ION 

C0EFX(20), 

DX ( 20 ) , 

FORM ( 15 ) 


0095 

DIMENSION 

COEFTK 15,90) 

, C0EFT2 ( 15 

,90) 


0096 

DIMENSION 

ELMT ( 1 5 ) , 

DA TA ( 23 ) , 

DA TUM ( 3 ) , 

FOKMLA( 18) 

0097 

DIMENSION 

BOX( 15) , 

BOF( 15) , 

ANSI 454 ) , 

SYSTM( 15 ) 

0098 

DIMENSION 

LLMT( 15) ,MTSYS(15) , MDAT A ( 23 ) 


0099 

DIMENSION 

AN SL AB ( 454 ) , 

COEFT( 15 

,90) 


0100 

DIMENSION 

MATOM ( 101,3) 

, ATOM ( 

101,3) 


0101 


0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
C 112 


H,P 


READ IN INPUT DATA 

IF (ISYS-99) 401,403,401 
403 READ TAPE 3 , ( G ( I ) , I = 1 , 8044 ) 

REWIND 3 

IF (SENSE SWITCH 6) 651,719 
401 I S Y S = 99 
I FROZ = C 
PAUSE 11111 
429 CALL- INPUT 

IF (L) 651,651,433 

433 WRITE OUTPUT TAPE 6,443, HX , VXP L S , VXM I N , HF , VFPLS , VF MI N 
1, (ELMT( I ) ,B0X( I) ,BOF( I ) , 1=1, L) 

443 FORMAT (10H10XIDANT 3E16.6/10H FUEL 3E16.6/(1H A6,2E20.8)) 

C 

C RIGHT ADJUST ELEMENT SYMBOLS 

C 

CO 447 K= 1 , L 
TMLM = ELMT(K) 

ELMT(K) = ARSF ( 24 , TMLM) 


J 1 1 3 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 


non 


\B TMLM = ELMT(K) *000000000077 

IF (MTMLM-MBLK) 447,1447,447 
1447 TMLM = ELMT(K) 

ELMT(K) = ARSE ( 6 , TMLM) 

447 CONTINUE 

IF(SYSTM(L+1) ) 453, 920, 453 

920 IF (SYSTM(L)) 921,453,921 

921 DO 449 K = 1 , L 
DO 448 J=1 , L 

IF { LLMT (K)-MTSYS(J) ) 448,449,448 

448 CONTINUE 
GO TO 453 

449 CONTINUE 
C 

C CANCEL CMITS FROM PREVIOUS PROBLEM 

C 

452 DO 1452 J=1,M 
COEFT 1 ( 1 , J ) = DMT 
C0EFT2 ( 1 , J ) = DMT 

1452 COEFT ( 1, J ) = DMT 
IUSE=1 
GO TO 598 

453 DO 459 K=l f 15 
459 SYSTM(K)=ELMT(K) 

CALL SEARCF 

598 IF C I USE-2 ) 600,635,635 

SET ARRAY PROD TO BYPASS ALL CONDENSED PHASES 

600 PROD { 1 ) =0 • C 
PROD ( 2 ) =0 • C 

IF ( M — 35) 198,198,1198 

1198 IF (M-70) 199,199,1199 

1199 IF (M-90) 200,200,635 
8198 PROD( 2) =377777777777 

B PROD ( 3 ) = 377777777777 

TMP=PRCD( 2 ) 

PROD( 1 )=ARSF(M,TMP) 

GO TO 201 

199 M 1 2 = M-35 

B PROD ( 3 ) = 377777777777 

TMP=PROD ( 3 ) 

PROD( 2 )=ARSF{ M12,TMP) 

GO TO 201 

200 Ml 2 = M-70 

B PROD ( 3 ) = 377777777777 

TMP=PRCD ( 3 ) 

PR0D(3)=ARSF(M12,TMP) 

201 I Q=L 
101=10+1 
102=101+1 
103=102+1 
L 1= 10 1 

M 1 = M+ 1 
C 

C DETERMINE WHICH GASEOUS SPECIES SHOULD BE OMITTED FROM THE PROBLEM 

C AND WHICH CONDENSED SPECIES SHOULD BE USED IN THE FIRST ITERATION 

C 

203 READ INPUT TAPE 7 , 204 , l D AT A { 1 ) , 1 = 1 , 8 ) 

204 FORMAT (4(2A6,3X)) 

B SJW=DATA( 1 )*(-DMT) 

B IF(SJW)207, 220,207 

207 DO 213 K=1 , 4 
DO 211 J= 1 » N 
DO 208 1=2,3 
KK=2*K+I-3 

B SJW=DATA{ KK )*(-CCEFT2( I, J) ) 

B IF(SJW)211,208,211 

208 CONTINUE 

IF (J-M) 209,209,210 

209 CALL BYPASS (J,2) 

11209 GO TO 213 

210 CALL BYPASS (J,3) 

11210 GO TO 213 

211 CONTINUE 
213 CONTINUE 

GO TO 203 


0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 


220 

CONTINUE 

0212 


DO 222 J= 1 , M 

0213 


CALL BYPASSIJ,1) 

0214 


IF (IPROD - 2 ) 221 , 222,221 

0215 

221 

COEFT 1 ( 1 , J ) = OMIT 

C 2 16 


C0EFT2 ( 1, J)=0MIT 

0217 

222 

CONTINUE 

0218 

0219 


ARRANGE ANSWER REGION 

0220 

0221 


1 = 1 

0222 


DO 602 J= 1 , N 

0223 


ANSI I )=COEFT2( 1, J) 

0224 


ANSI I + 1 ) =CCEFT 2 I 2 , J ) 

0225 


ANSI I+2)=CCFFT?(3,J) 

0226 


ANSI 1 + 3) = 0.0 

0227 

602 

1=1+4 

0228 


K = 4*N 

0229 

605 

I = K + 34 

0230 


ANSI I ) = ANS I K ) 

0231 


K = K- 1 

0232 


IF IK) 651,607,605 

C233 

607 

DO 609 K= 1 , 34 

0234 

609 

ANSIK) = 0.0 

0235 


DO 1700 K = 1, 454 

0236 

1700 

ANSLABIK) = ANSIK) 

C237 


DO 1701 J = 1, 15 

0238 


DO 1701 K = 1, 9C 

0239 

1701 

COEFT I J , K ) = COEFT 1 1 J , K ) 

0240 

0241 


DETERMINE THE TYPE OF PROBLEM 

0242 

0243 

700 

I FROZ= 1 

0244 

701 

READ INPUT TAPE 7 , 703 , PROB , KASE 

0245 

703 

FORMAT ( A5 , I 5 ) 

0246 


IF ( MPROB-MHS ) 705,901,705 

0247 

901 

I PROB= 1 

C248 


GO TO 715 

0249 

705 

IF IMPROB-MTS) 707,902,707 

0250 

902 

I PR0B=2 

0251 


GO TO 715 

0252 

707 

IF (MPROB-MPM 709,903,709 

0253 

903 

I PROB= 3 

0254 


GO TO 715 

0255 

709 

IF I MPROB-MTP ) 711,904,711 

0256 

904 

I PROB = 4 

0257 


GO TO 715 

0258 

711 

IF I MPROB-MDET ) 713,905,713 

0259 

905 

I PROB= 1 

0260 


I F ROZ = - 1 

0261 


GO TO 719 

026 2, 

713 

IF (MPROB-MHP) 9001,9000,9001 


9000 

I PROB= 5 
GO TO 715 


9001 

IF I MPROB-NT ) 631,429,631 


715 

DO 716 K= 1 , 25 

0264 - 

716 

PC P I K ) =0 . 0 

0265 


1=0 

0266 

1716 

READ INPUT TAPE 7, 71 8 , (G I K ) , K=1 , 5 ) 
IFIGI 1 ) ) 1719,1719,717 

0267 

717 

DO 1717 K= 1 , 5 

0 269 


I K= I +K 

0270 

1717 

PCPI I K ) =G I K ) 

0271 


1=1+5 

0272 


GO TO 1716 

0273 

718 

FORMAT (5F1C.2) 

READ IN AREA RATIO SCHEDULE 

C274 

0275, 


1719 IK = 1 

2013 READ INPUT TAPE 7 , 7 1 8 * ( G ( K ) , K = 1 , 5 ) 
IF (G(1J) 2001,2003,2001 

2001 DO 2002 1=1,5 

ANS ( IK) = G ( I ) 

2002 IK = IK+1 
GO TO 2013 


► H,P 


Area ratio 


►Area ratio 


2C03 N ARE A=G 

I F ( IK- 1)2004,719,2004 

2004 I UNDER=0 

DO 2005 1=1,13 

IF{ ANSI I) )2011, 2010, 2011 
2011 IF (ANS(I) - 1.0C001) 2006,2006,2007 
2007 NAREA = NAREA+1 

SAREA (NAREA) =ANS( I ) 

GO TO 2005 
2006 IUNDER = NAREA 

2005 CONTINUE 

2010 IOVER=NAREA-IUNDER 
C 

C DETERMINE THE ASSIGNED VALUES FOR THE PROBLEM 

t 

719 READ INPUT TAPE 7 , 72 1 , EORA T , 0 F , F PCT , PC , TC , KODE , I DEBUG 
721 FORMAT ( 5F 10 . 2 , I 5 , 16X , 1 1 ) 

IF ( EORAT ) 725,725,723 

723 0 F=(-EORAT*VFMIN-VFPLS)/( VXPLS+EQRAT*VXMIN) 

F PCT=10C.C/{ 1.0+0 F) 

GO TO 745 

725 IF (0 F) 731,731,727 
727 F PCT=100.C/( l.C+O F) 

729 E0RAT=C F*VXMIN+VFMIN 
IF(ECRAT)9C50, 745,9050 
9C50 EGRAT= ABSF ( ( 0 F * VXPLS+ VF PL S ) /EQRAT ) 

GO TO 745 

731 I F ( F PCT J9C51, 9051, 733 
9051 IF (PC+TC)5052, 700, 9052 
905? IF(KSAN)9053, 700, 9053 
9053 0 F=WX/WF 
GO TO 727 

733 0 F=( 100. 0-F PCT)/F PCT 
IF (0 F) 719,1733,729 
1733 IF (VFMIN) 729, 746,729 

745 IF (0 F) 719,746,746 

746 DO 747 1=1, L 

747 80 ( I ) = C 0 F*BOX( I ) + B0F( I ) )/( 1.0+0 F) 

IF (IPROB-1) 651,749,748 

748 IF (IPRUe-5) 9002,749,651 
9C02 HSUBO=G. 0 

GO TO 755 

749 HSUR0=(O F *HX+HF ) / { 1 . 0+0 F) 

755 WRITE OUTPUT TAPE 6 , 760 , KA SE , PROB , 0 F , F PC T , EORAT , PC , HSUBO , 
1 (BO(I ), 1=1, L) 

760 FORMAT ( 1H1 1 5, 3X , A6/1H 4E17.8/(1H 7C17.8)) 

H$UR0=hSUBC/l. 98726 
DO 1771 I = 1, 454 

1771 ANS(l) = AN SLAB ( I ) 

RHC=RH0X+0 F*RHOF 

IF ( RHC ) 772,772,771 

771 RHO= (1.0+0 F)*RHOX*RHOF/RHO 

772 DO 1772 I = 1, 454 

1772 ANSL AB ( I ) = ANS( I ) 

775 IF (IFROZ) 777,651,779 
777 CALL CCRE4 

IF (KORE) 1,779,1 
779 CALL C0RE2 
GO TO 1 
C 

C ERROR PRINT OUT 

C 

631 WRITE OUTPUT TAPE 6 , 633 , PROB , KA SE 

633 FORMAT ( 2 1 F 1 THERE IS NO PROBLEM A6,2X,I5) 

GO TO 651 

635 WRITE OUTPUT TAPE 6,637 

637 FORMAT ( 47F 1TRCUBLE IN COMPILING MASTER THERMODYNAMIC TAPE) 
REWIND 4 

639 READ TAPE 4 , ,( DAT A ( I ) , I = 1 , 2 3 ) 

WRITE OUTPUT TAPE 6 , 64C , ( DAT A ( I ) , I = 1 , 23 ) 

64C FORMAT ( 1H 3A6 , 2F 10 . 1/ ( 1H 2F8 . 1 , 7E 14 . 6 ) ) 

IF (MDATAt 1 J-MEND) 639,900,639 
900 WRITE OUTPUT TAPE 6,643, ( ( COEF T 1 ( K , J ) , K= 1 , 14 ) , J=1 , N ) 

WRITE OUTPUT TAPE 6,643, ( ( COEF T2 ( K , J ) , K=1 , 14 ) , J= 1 , N ) 

643 FORMAT ( 1H 3 A6 , 2F 1 5 . 2 /2F 8 . 1 , 7E 1 2 . 4 // ) 

651 REWIND 4 

PAUSE 77777 




►Area ratio 


0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

Correction 

Correction 

Correction 


0287 


^•Moles 


0289 

C290 

0291 

0292 

0293 

0294 

0295 

H,P 

H,P 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 


SUBROUTINE : 

SEARCH 




C 333 
v. 334 
0335 

COMMON C 





0336 

EQUIVALENCE 

(G( 1) , 

C ( 1 ) ) , 

( G ( 420 ) , 

C ( 420 ) ) 

C 337 

EQUIVALENCE 

(ANSI 1) , 

C ( 42 1 ) ) , (ANS1454), 

C ( 874 ) ) 

C 338 

EQUIVALENCE 

(HSUM, 

C(424) ) , 

( SSUM , 

C ( 425 ) ) 

0339 

equivalence 

(WTMOL, 

C(426) ) , 

(CP, 

C ( 427 ) ) 

0340 

EQUIVALENCE 

(OLMPT, 

C ( 428 ) ) , 

(DLMTP, 

C ( 429 ) ) 

0341 

EQUIVALENCE 

(GAMMA » 

C ( 430 ) ) , 

(ARATIO, 

C ( 431 ) ) 

0342 

EQUIVALENCE 

( VMACH, 

0(432 ) ) , 

(SP IMP, 

C ( 433 ) ) 

0343 

equivalence 

(VACI , 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

0344 

EQUIVALENCE 

( RHO I » 

C ( 437 ) ), 

(RHOVAC, 

C ( 438 ) ) 

0345 

EQUIVALENCE 

(RHO, 

C ( 439 ) ) 



0346 

EQUIVALENCE 

(T PI, 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

0347 

equivalence 

(EP PI, 

C ( 442 ) ) , 

(AW PI , 

C ( 443 ) ) 

0348 

EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 



0349 

EQUIVALENCE 

(ETA I, 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

0350 

EQUIVALENCE 

(AW ETA, 

C(448 ) ) , 

(T SIG, 

C ( 450 ) ) 

C 35 1 

EQUIVALENCE 

(SIG I, 

C ( 451 ) ) , 

(EP SIG, 

C ( 452 ) ) 

0352 

EQUIVALENCE 

(AW SIG, 

C ( 453 ) ) 



0353 

EQUIVALENCE 

( ANSLABt 1) 

, C ( 875 ) ) , 

( ANSLAB(454) 

, C ( 1 328 ) ) 

0354 

EQUIVALENCE 

( FORM { 1 ) , 

C( 1329) ) , 

( F OR M ( 15 ) , 

C ( 1343 ) ) 

0355 

EQUIVALENCE 

(ELMT(I) , 

C ( 1344 ) ) , 

( ELMT (15) , 

C ( 1358 ) ) 

0356 

EQUIVALENCE 

(LLMT(I), 

C ( 1 344 ) ) , 

( LLMT ( 15 ) , 

C ( 1358 ) ) 

0357 

EQUIVALENCE 

( DAT A ( 1 ) , 

C ( 1 359 ) ) , 

( D A T A ( 2 3 ) , 

C( 1381 ) ) 

0358 

EQUIVALENCE 

(MDATA(l), 

C ( 135 9) ) , 

( MOAT A ( 2 3 ) 

, C( 1381 ) ) 

0359 

equivalence 

( EN ( 1 ) , 

C ( 1382) ) , 

( EN ( 90 ) , C ( 147 1 ) ) 

0360 

EQUIVALENCE 

( ISYS, 

C( 1472 ) ) , 

( JEAN, 

C( 1473) ) 

0361 

EOUIVALENCE 

( ACX , 

C( 1474 ) ) , 

( ACF , 

C( 1475) ) 

0362 

EQUIVALENCE 

( AMX , 

C( 1476) ) , 

(AMF, 

C ( 1477) ) 

0363 

equivalence 

(RHOX, 

C( 1478) ) , 

(RHOF, 

C( 1479) ) 

0364 

EQUIVALENCE 

( COEFX ( 1 ) , 

C ( 1 480 ) ) , ( COEFX ( 2G ) , C(1499)) 

0365 

EQUIVALENCE 

(DX( I), 

C ( 1 500 ) ) , 

( DX ( 20 ) , 

C (1519) ) 

0366 

EQUIVALENCE 

( FORML A ( 1 ) 

, C ( 15 20 ) ) 

, ( FORMLA ( 18 ) , C ( 1537 ) ) 

0367 

equivalence 

( MML A ( I ) , 

C( 1520) ) , 

( MMLA( 18) , 

C( 1537) ) 

0368 

EQUIVALENCE 

( PROD ( 1 ) , 

C ( 1538 ) ) , 

( PROD ( 3 ) , 

C ( 1540 ) ) 

0369 

EQUIVALENCE 

( SYS TM ( 1 ) , 

C( 1541) ) , 

( SYSTM( 15) 

, C ( 1 555 ) ) 

0370 

EQUIVALENCE 

( M T S YS ( I ) , 

C( 1541 ) ) , 

( MT SYS ( 15) , 

C( 1555 ) ) 

0371 

EQUIVALENCE 

(OF, C ( 1556 ) ) , 

(FPCT, C ( 1557 ) ) 

0372 

EQUIVALENCE 

( EQRAT , 

C( 1558) ) 



C 373 

EOUIVALENCE 

(KODE, C ( 1559) ) , (KASE, C(1560)J 

0374 

EQUIVALENCE 

(KONT, C ( 1 561 ) ) , 

(NF, 

C ( 1562 ) ) 

0375 

equivalence 

(NO, 

C ( 156 3 ) ) , 

(NE, 

CC1564) ) 

0376 

EQUIVALENCE 

(NOEQ, C ( I 565 ) ) 



0377 

EQUIVALENCE 

( BOX ( 1) , 

C( 1771) ) , 

(B0X( 15) , 

C( 1785) ) 

0378 

EQUIVALENCE 

( BOF ( 1 ) , 

C( 1786) ) , 

( BOF ( 15 ) , 

C ( 1800 ) ) 

0379 

EQUIVALENCE 

(HX, 

C ( 180 1 ) ) , 

(HF, 

C( 1802) ) 

0380 

EQUIVALENCE 

( VXPLS, 

C( 1803) ) , 

( VXMIN, 

C ( 1804 ) ) 

0381 

EQUIVALENCE 

(VFPLS, 

C( 1805) ) , 

( VFMIN, 

C ( 1806 ) ) 

0382 

EQUIVALENCE 

(EN LN ( 1 ) , 

C ( 1 86 1 ) ) , 

(EN LN ( 90 ) , 

C ( 1950 ) ) 

0383 

EQUIVALENCE 

(DEL N ( 1 ) , 

C( 1951) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

0384 

EQUIVALENCE 

(HO( 1), 

C ( 204 1 ) ) , 

( HO ( 90 ) , 

C ( 2 1 30 ) ) 

0385 

EQUIVALENCE 

(S( 1) , 

C ( 2 13 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

0386 

EQUIVALENCE 

( X ( 1 ) , 

C ( 222 1 ) ) , 

(X (20) , 

C ( 2240 ) ) 

0387 

equivalence 

(DELTA! 1 ) , 

C ( 224 1 ) ) , 

( DELT A ( 20 ) , 

C ( 2260 ) ) 

0388 

EQUIVALENCE 

( BO ( 1 ) , 

C ( 226 1 ) ) , 

( BO ( 15) , 

C ( 2275 ) ) 

0389 

EQUIVALENCE 

(PO, 

C ( 227 6 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

0390 

EQUIVALENCE 

(SO, 

C ( 227 8 ) ) , 

(T LN, 

C ( 2279 ) ) 

0391 

equivalence 

(T, 

C ( 228 0 ) ) , 

(AAY LN, 

C ( 228 1 ) ) 

0392 

EQUIVALENCE 

( AAY , 

C ( 228 2 ) ) , 

(CPSUM, 

C ( 228 3 ) ) 

0393 

EQUIVALENCE 

(HC, 

C ( 228 4 ) ) , 

(TC LN, 

C ( 2285 ) ) 

0394 

EQUIVALENCE 

(PCP( 1) , 

C ( 228 6 ) ) , 

(PCP125) , 

C ( 2310 ) ) 

0395 

equivalence 

( DATUM ( 1 ) , 

C ( 231 1) ) , 

( DATUM ( 3 ) , 

C ( 2313 ) ) 

0396 

EQUIVALENCE 

(PC, 

C ( 2 31 4 ) ) , 

( TC, 

C ( 2 31 5 ) ) 

0397 

EQUIVALENCE 

( IPROB, 

C ( 231 6 ) ) , 

( IFIXT, 

C ( 231 7 ) ) 

0398 

EQUIVALENCE 

( IHS, 

C ( 231 8 ) ) , 

( ICOND, 

C ( 2319 ) ) 

0399 

equivalence 

( ISYM, 

C ( 232 0 ) ) , 

( I PROD, 

C ( 232 1 ) ) 

0400 

EQUIVALENCE 

( IDID, 

C ( 232 2 ) ) , 

(LDRUM, 

C ( 2323 ) ) 

0401 

EQUIVALENCE 

( I DRM , 

C ( 232 3 ) ) , 

( KDRUM , 

C ( 2324 ) ) 

0402 

EQUIVALENCE 

(L, 

C ( 2 32 5 ) ) , 

(LI, 

C ( 2326 ) ) 

0403 

EQUIVALENCE 

(M, 

C ( 232 7 ) ) , 

(Ml, 

C ( 2328 ) ) 

0404 

EQUIVALENCE 

(N, 

C ( 2 32 9 ) ) , 

( IQ, 

C ( 2 330 ) ) 

0405 

EQUIVALENCE 

( 101, 

C ( 233 1 ) ) , 

( IG2, 

C ( 2332 ) ) 

0406 

EQUIVALENCE 

( IMAT, 

C( 2335) ) , 

( I USE , 

C ( 2335 ) ) 

0408 

EQUIVALENCE 

( IQ3, 

C ( 233 3 ) ) , 

( KMAT , 

C ( 2334 ) ) 

0407 

EQUIVALENCE 

( I ADD , 

C ( 233 6 ) ) , 

( ITNUMB, 

C ( 2337 ) ) 

0409 


15 




EQUIVALENCE (ITAPEt 

CC2338) ) 

, (P, 

C ( 2339 ) ) 

0410 



EQUIVALENCE ( I DEBUG* 

C ( 2 34 0 ) ) 

, (IFROZ, 

C ( 2341 ) ) 

0411 



EQUIVALENCE (A(l), 

C ( 2 34 2 ) ) 

, ( A ( 1 350 ) , 

C ( 3691 ) ) 

0412 



EQUIVALENCE (COEFTKl 

), C ( 3692 ) 

), (C0EFT1 ( 1350) , C ( 5041 ) ) 

0413 



EQUIVALENCE (C0EFT2(1 

), C ( 504 2 ) ) 

, (C0EFT2( 1350) , C(6391)) 

0414 



EQUIVALENCE (COEFT(l) 

, C ( 639 2 ) ) 

, ( COEF T ( 1350 ) , C ( 7741 ) ) 

0415 



EQUIVALENCE ( ATOM ( 1 ) * 

C ( 7742 ) ) , 

( ATOM ( 303 ) , 

C ( 8044 ) ) 

0416 



EQUIVALENCE (MATOM(l) 

, C ( 774 2 ) ) 

, ( MA TOM ( 303 ) , C18044)) 

0417 



EQUIVALENCE (C12,MM),(E 

, ME) , (END, MEND) , ( BLK , MBLK ) , { RPN , MRPN ) 

0418 



EQUIVALENCE ( GAS » MGAS ) » 

( SOL , MSOL ) , 

( BL I Q, ML I Q ) , 

( BLPN , MLPN ) 

0419 



EQUIVALENCE (C10.MC10) * 

( PL S , MPL S ) , 

( S YMBL , MBL ) , 

(BMI N, MMI N ) 

0420 



EQUIVALENCE (TMP1, MTMP 

1) 



0421 

c 






0422 

c 






0423 



DIMENSION G ( 20t 21 ) f 

A ( 15,90) , 

EN ( 90 ) , 

EN LN ( 90 ) 

0424 



DIMENSION DEL N(90), 

HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

0425 



DIMENSION DEL T A ( 20 ) , 

00(15), 

PCP ( 25 ) , 

PROD ( 3 ) 

0426 



DIMENSION COEFX ( 20 ) » 

DX120), 

FORM( 15) 


0427 



DIMENSION COEFT 1(15*90) 

, COEFT 2(15,90) 


0428 



DIMENSION ELMT ( 1 5 ) , 

DATA ( 23 ) , 

DA TUM ( 3 ) , 

FORMLAt 18) 

0429 



DIMENSION BOX ( 1 5 ) , 

BOF( 15) , 

AN S ( 454 ) , 

SYSTM( 15) 

0430 



DIMENSION LLMT ( 1 5 ) , MTS YS ( 1 5 ) , MD A T A ( 23 ) 


0431 



DIMENSION ANSL AB ( 454 ) 

, COEF T ( 1 5 , 90 ) 


0432 



DIMENSION MATOM( 101,3) , ATOM(101,3) 


0433 



DIMENSION MML A { 18) 




0434 

c 






0435 

c 






0436 

B 


BLK=00C0C0C00060 




0437 

B 


RPN=00G000C00034 




0438 

B 


BLPN=00000C000074 




0439 

B 


GAS=00C000C00027 




0440 

B 


S0L=000000C00062 




0441 

B 


BL 10=000000000043 




0442 

B 


PLS=00C000C00020 




0443 

B 


BMIN=00000C000040 




0444 

B 


E=0000C0C0C025 




0445 

B 


END=254524606060 




0446 

B 


C10=000000C00012 




0447 

B 


Cl 2=0000 14C00000 




0448 

B 


CF1 0=000012000000 




0449 

C 






0450 

C 






0451 



K I 0N=2 




0452 



DO 1 K=1,L 




0453 



IF (LLMT(K)-ME) 1,2,1 




0454 


1 

CONTINUE 




0455 



GO TO 3 




0456 


2 

K ION= 1 




0457 



TEMP=ELMT ( K ) 




0458 



ELMT (K) = ELMT(L) 




0459 



ELMTIL )=TEMP 




0460 


3 

I SCL = 0 




0461 



M = G 




0462 



DO 4 J=1 , 15 




0463 



DO 4 K= 1 , 9C 




0464 



C0EFT2 ( J , K ) = 0.0 




0465 


4 

COEFT 1 ( J , K ) = 0.0 




0466 



DO 6 J= 1 , 1350 




0467 


6 

A ( J ) = 0.0 




C468 



REWIND 4 




0469 


7 

READ TAPE 4, (DATA! I ) , I - 

=1,23) 



0470 



IF (MDATAI D-MEND) 900, 

171,900 



0471 

C 






0472 

C 


UNPACK THE BCD FORMULA 1 

FOR THE PRODUCT 


0473 

C 






0474 


900 

DO 16 1=1,2 




0475 


16 

DATUM ( I )=DATA( I ) 




0476 



J=1 




0477 



1 = 1 




0478 


13 

K = 0 




0479 


17 

TMP 1 = DATUM ( I ) 




0480 



FORMLA(J) = ARSF ( 30 , TMP1 ) 



0481 

B 


DATUM! 1 ) = AL SF ( 600000C 

, TMP 1 ) 



0482 



J = J + 1 




0483 



IF ( K— 4 ) 925,925,21 




0484 


925 

K = K + 1 




0485 


16 


non 


GO TO 17 0486 

21 IF ( I- 1 ) 926,926,25 0487 

926 1=1+1 0488 

GO TO 13 0489 

C 0490 

C BEGIN SEARCH FOR FIRST NON BLANK ALPHANUMERIC CHARACTER 0491 

C 0492 

25 J= 12 0493 

29 J=J 0494 

IF (MMLAf J)-MBLK) 35,950,35 0495 

950 IF (J-l) 3C, 30,951 0496 

951 J = J-l 0497 

GO TO 29 0498 

30 WRITE OUTPUT TAPE 6 , 3 1 , ( DAT A ( I ) , I = 1 , 3 ) G499 

31 FORMAT (14F THE FORMULA 3A6.33H IS INCORRECT ON THE MASTER TAPE) 0500 

GO TO 7 0501 

35 IF ( MML A { J ) -MRPN ) 30,952,30 0502 

952 J = J-l 0503 

IF ( MML A { J )-MGAS ) 953,39,953 0504 

953 IF ( MMLA ( J )-MSOL ) 954,41,954 0505 

954 IF (MMLA( J )-ML 10) 30,41,30 0506 

39 I TYPE= 1 0507 

GO TO 47 0508 

41 I T YPE=2 0509 

47 J= J-l 0510 

IF (MMLA( J )-MLPN) 30,955,30 0511 

955 J= J-l 0512 

0513 

OBTAIN AND STORE THE FORMULA NUMBERS A(K,J) 0514 

0515 

DO 48 K= 1 , 15 0516 

48 FORM ( K ) =0 • C 0517 

51 NLS W= 1 0518 

NUM B = 0 0519 

55 ICNT=0 0520 

57 JCNT = J- ICNT 0521 

IF (JCNT) 30,81,59 0522 

59 IF ( MML A ( JCNT ) - MC10) 958,67,67 0523 

958 GO TO (63,85) ,NLSW 0524 

63 I CNT= I CNT+ 1 0525 

GO TO 57 0526 

67 GO TO (69,63) , NL SW 0527 

69 IF (ICNT) 959,330,959 0528 

330 IF(KI0N-1)30, 333,30 0529 

333 NLSW=2 0530 

GO TO 57 0531 

959 IF (ICNT-2) 77,73,30 0532 

73 NUMB = MMLA(J-l) * 10 0533 

77 TMP1 = FORMLA(J) 0534 

TMP 1 = ALSF( 18,TMP1) 0535 

B TMP 1 = TMP 1 # 377777777777 0536 

B TMP2 = FORMLA ( J ) *400000000000 0537 

B TMP1 = TMP1+TMP2 0538 

NUMB = NUMB+MTMP1 0539 

VALUE = NUMB 0540 

J= J- ICNT 0541 

NLSW=2 0542 

GO TO 55 0543 

81 GO TO ( 30 , 85 ) , NLSW 0544 

85 IF (ICNT) 960,30,960 0545 

960 SYMBL = O.G 0546 

IF(NUMB)86,95,86 0547 

86 IF (ICNT-2) 93,89,30 0548 

89 TMP l = FORMLA { J— 1 ) 0549 

SYMBL = ALSF ( 6 , TMP 1 ) 0550 

93 MBL = MBL + MMLA(J) 0551 

GO TO 107 0552 

95 IF(JCNT)30, 30,96 0553 

96 IF ( MMLA ( J )-MPLS ) 97,970,97 0554 

970 FORM ( L ) =- I CNT 0555 

GO TO 109 0556 

97 IF ( MML A ( J )-MM I N ) 107,975,107 0557 

975 FORM ( L ) = ICNT 0558 

101 GO TO 109 0559 

107 DO 111 K= 1 , L 0560 

IF ( MBL-LLMT ( K ) ) 111,105,111 0561 

111 CONTINUE 0562 


o o u o u u 



GO TO 7 




0563 

105 

FORM ( K ) =V ALUE 




0564 

109 

J= J- ICNT 




0565 


IF (J) 30,121,51 




0566 

121 

IF ( I TYPE- 1 ) 30,133,137 




0567 

133 

M=M+ 1 




0568 


J = M 




0569 


GO TO 145 




0570 

137 

J = 90- 1 SOL 




0571 


I SOL= 1 SOL + 1 




0572 

145 

DO 147 K= 1 , L 




0573 


A ( K , J ) =FORN ( K ) 




0574 

147 

CONTINUE 




0575 






0576 


ARRANGE THERMODYNAMIC DATA ] 

[N 

CORE ORDERED BY INTERVAL 


0577 






0578 

151 

I T = 0 




0579 


TEMP = D AT A ( 1) 




0580 


DATA(l) = CAT A ( 3 ) 




0581 


DAT A ( 3 ) = C AT A ( 2 ) 




0582 


DA T A ( 2 ) = TEMP 




0583 


DO 155 K= 1 , 5 




0584 

155 

C0EFT1 (K,J ) = DAT A ( K ) 




0585 


DO 159 K=6 , 14 




0586 


K I T= K+IT 




0587 

159 

COEFT 1 ( K , J ) = DAT A ( K I T ) 




0588 


I T= I T + 9 




0589 


DO 1955 K= 1 , 5 




0590 

1955 

C0EFT2(K f J) = DATA(K) 




0591 


DO 1959 K = 6 ,14 




0592 


KIT = K + IT 




0593 

1959 

C0EFT2 ( K , J ) = DAT A ( K I T ) 




0594 


GO TO 7 




0595 






0596 


GO TO NEXT MOLECULE 




0597 






0598 






0599 


ELIMINATE GAP BETWEEN GASES 

AND CONDENSED PHASES 


0600 






0601 

171 

N=M+ 1 SOL 




0602 


IUSE= 1 




0603 

173 

IF (N-90) 175,225,181 




0604 

175 

IF C I SOL ) 177,225,184 




0605 

177 

I USE=2 




0606 


GO TO 225 




0607 

181 

WRITE OUTPUT TAPE 6,182 




0608 

182 

FORMAT (45H TOO MANY REACTION 

PRODUCTS FOUND ON THE TAPE) 


0609 


I USE=2 




0610 


GO TO 225 




0611 

184 

KK = 90-ISCL 




0612 


DO 186 J * 1, ISOL 




0613 


MJ = M + J 




0614 


KJ = KK + J 




0615 


DO 186 K = 1,15 




0616 

186 

COEFT 1 ( K , M J ) = COEFT 1 ( K , K J ) 




0617 


DO 185 J = 1,1 SOL 




0618 


MJ = M+J 




0619 


KJ = KK + J 




0620 


DO 185 K = 1,15 




0621 

185 

C0EFT2 ( K , M J ) = C0EFT2(K,KJ) 




0622 


DO 219 J= 1 , I SOL 




0623 


M J=M+ J 




0624 


KJ = KK +J 




0625 


DO 217 K= 1 , 1 5 




0626 


A { K , M J ) = A ( K , K J ) 




0627 

217 

CONTINUE 




0628 

219 

CONTINUE 




0629 


GO TO 225 




0630 

225 

RETURN 




0631 


SUBROUTINE 
COMMON C 

BYPASS (J,IARG) 


0632 

0633 

0634 

0635 

EQUIVALENCE 

( G( 1 ) » 

C ( 1 ) ) , (G(420), 

C ( 420 ) ) 

0636 

EQUIVALENCE 

(ANSI 1) , 

C ( 42 1 ) ) , ( ANS ( 454 ) , 

C ( 874 ) ) 

0637 

equivalence 

(HSUM, 

C ( 4 24 ) ) , ( S SUM , 

C ( 425 ) ) 

0638 

EQUIVALENCE 

( WTMOL » 

C ( 426 ) ) , (CP, 

C ( 427 ) ) 

0639 

EQUIVALENCE 

( DLMPT , 

C ( 428 ) ) , ( DLMTP , 

C ( 429 ) ) 

0640 

EQUIVALENCE 

(GAMMA, 

C(430)), (ARATIO, 

C ( 43 1 ) ) 

0641 

equivalence 

( VMACH, 

C ( 4 32 ) ) , (SP IMP, 

C ( 433 ) ) 

0642 

EQUIVALENCE 

(VACI , 

C ( 4 34 ) ) , (CF, 

C ( 4 36 ) ) 

0643 

EQUIVALENCE 

( RHO I « 

C ( 4 37 ) ) , (RHOVAC, 

C ( 438 ) ) 

0644 

EQUIVALENCE 

(RHO, 

C ( 439 ) ) 


0645 

equivalence 

(T PI, 

C(440)), (PI I, 

C ( 44 1 ) ) 

0646 

equivalence 

(EP PI, 

C ( 442 ) ) , (AW PI , 

C ( 443 ) ) 

0647 

EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 


0648 

EQUIVALENCE 

(ETA I, 

C ( 446 ) ) , (EP ETA, 

C ( 447 ) ) 

0649 

equivalence 

(AW ETA, 

C ( 448 ) ) , (T SIG, 

C ( 450 ) ) 

0650 

EQUIVALENCE 

(SIG I, 

C ( 451 ) ) , (EP SIG, 

C ( 452 ) ) 

0651 

EQUIVALENCE 

(AW SIG, 

C ( 453 ) ) 


0652 

EQUIVALENCE 

( ANSL AB ( I) 

, C ( 8 75 ) ) , ( ANSLAB { 454 ) 

, C( 1328) ) 

0653 

equivalence 

( FORM ( 1 ) , 

C ( 1 32 9 ) ) , ( FCRM (15), 

C( 1343) ) 

0654 

EQUIVALENCE 

(ELMT( 1) , 

C ( 1344 ) ) , ( ELMT ( 15 ) , 

C ( 1358 ) ) 

0655 

EQUIVALENCE 

( LLMT ( 1 ) , 

C ( 1 34 4 ) ) , ( LLMT ( 1 5 ) , 

C( 1358) ) 

0656 

EQUIVALENCE 

( DATA ( 1 ) , 

C( 1359) ) , ( D ATA ( 23 ) , 

C ( 138 1 ) ) 

0657 

equivalence 

( MD A T A { 1 ) , 

C ( 1 35 9 ) ) , ( MDAT A ( 23 ) 

, C( 1381 ) ) 

0658 

equivalence 

(EN( I ) , 

C ( 1 382) ) , ( EN ( 90 ) , C(1471)) 

0659 

equivalence 

( ISYS, 

C ( 1472 ) ) , (JEAN, 

C ( 1473 ) ) 

0660 

equivalence 

( ACX, 

C ( 1474 ) ) , ( ACF , 

C ( 1 475 ) ) 

0661 

EQUIVALENCE 

( AMX , 

C ( 1476 ) ) , (AMF, 

C ( 1477) ) 

0662 

EQUIVALENCE 

( RHOX , 

C ( 147 8 ) ) , (RHOF, 

C ( 1479 ) ) 

0663 

EQUIVALENCE 

( COEFX ( 1 ) , 

C ( 1 480 ) ) , ( COEFX ( 20 ) , C(1499)) 

0664 

equivalence 

(DX( 1 ) , 

C ( 1500 ) ) , ( DX ( 20 ) , 

C ( 1519) ) 

0665 

EQUIVALENCE 

( FORML A ( 1 ) 

, C ( 1520 ) ) , ( FORML A (18), C ( 1537) ) 

0666 

EQUIVALENCE 

( MML A ( 1) , 

C ( 1 52 0 ) ) , ( MML A (18), 

C( 1537) ) 

0667 

EQUIVALENCE 

( PROD ( 1 ) , 

C ( 1538 ) ) , ( PROD ( 3 ) , 

C ( 1 540 ) ) 

0668 

EQUIVALENCE 

( SYSTM ( 1 ) , 

C(1541)), ( S YSTM ( 15) 

, C ( 1 555 ) ) 

0669 

equivalence 

( MTS YS ( 1 ) , 

C ( 1 541 ) ) , ( MTSYS ( 15) , 

C( 1555) ) 

0670 

EQUIVALENCE 

(OF, C ( 1 556 ) ) , ( F PC T , C ( 1 557 ) ) 

0671 

EQUIVALENCE 

( EQRAT , 

C( 1558) ) 


0672 

EQUIVALENCE 

(KODE, C ( 1559) ) , (KASE, C ( 1560 ) ) 

0673 

EQUIVALENCE 

(KONT, C ( 1561 ) ) , (NF, 

C( 1562) ) 

0674 

EQUIVALENCE 

(NO, 

C ( 1 56 3 ) ) , (NE, 

CC 1564) ) 

0675 

EQUIVALENCE 

( NOEQ , C ( 1 565 ) ) 


0676 

EQUIVALENCE 

( BOX ( 1 ) , 

C ( 177 1 ) ) , (BCXC15), 

C( 1785) ) 

0677 

equivalence 

( BOF ( 1 ) , 

C ( 1 78 6 ) ) , ( BOF ( 1 5 ) , 

C( 1800) ) 

0678 

EQUIVALENCE 

(HX, 

C ( 1 80 1 ) ) , (HF, 

C( 1802) ) 

0679 

EQUIVALENCE 

(VXPLS, 

C ( 1 80 3 ) ) , (VXMIN, 

C( 1804) ) 

0680 

EQUIVALENCE 

( VFPLS, 

C ( 1805) ) , (VFMIN, 

C( 1806) ) 

0681 

equivalence 

(EN LN ( 1 ) , 

C( 1861 ) ) , (EN LN ( 90 ) , 

C( 1950) ) 

0682 

EQUIVALENCE 

(DEL N ( 1 ) , 

C ( 195 1 ) ) , (DEL N ( 90 ) , 

C ( 2040 ) ) 

0683 

EQUIVALENCE 

( HO ( 1 ) , 

C ( 204 1 ) ) , ( HO ( 90 ) , 

C ( 2 1 30 ) ) 

0684 

EQUIVALENCE 

(S( 1 ) , 

C ( 2 13 1 ) ) , ( S ( 90 ) , 

C ( 2220 ) ) 

0685 

equivalence 

( X ( 1 1 , 

C ( 222 1 ) ) , ( X ( 20 ) , 

C ( 2240 ) ) 

0686 

equivalence 

( DEL T A ( 1 ) , 

C ( 2241 ) ) , ( DEL TA ( 20 ) , 

C ( 2260 ) ) 

0687 

EQUIVALENCE 

( BO ( 1 ) , 

C ( 226 1 ) ) , ( BO ( 1 5 ) , 

C ( 2275 ) ) 

0688 

EQUIVALENCE 

(PO, 

C ( 227 6 ) ) , (HSUBO, 

C ( 2277 ) ) 

0689 

equivalence 

(SO, 

C ( 227 8 ) ) , (T LN, 

C ( 2279 ) ) 

0690 

EQUIVALENCE 

(T, 

C ( 2280 ) ) , (AAY LN, 

C ( 228 1 ) ) 

0691 

EQUIVALENCE 

( AAY, 

C ( 228 2 ) ) , (CPSUM, 

C ( 2283 ) ) 

0692 

EQUIVALENCE 

(HC, 

C( 2284) ) , ( TC LN, 

C ( 2285 ) ) 

0693 

equivalence 

(PCP(l), 

C (2286) ) , ( PCP ( 25 ) , 

C ( 2310 ) ) 

0694 

EQUIVALENCE 

( DATUM ( 1 ) , 

C ( 231 1 ) ) , ( DA TUM ( 3 ) , 

C ( 231 3 ) ) 

0695 

EQUIVALENCE 

(PC, 

C ( 231 4 ) ) , (TC, 

C ( 231 5 ) ) 

0696 

EQUIVALENCE 

( IPROB, 

C ( 2 31 6 ) ) . ( I F I XT , 

C ( 2317 ) ) 

0697 

EQUIVALENCE 

( IHS, 

C ( 2 31 8 ) ) , (ICOND, 

C ( 2319 ) ) 

0698 

EQUIVALENCE 

( ISYM, 

C ( 232 0 ) ) , (IPROD, 

C ( 2321 ) ) 

0699 

EQUI VALENCE 

( IDID, 

C ( 2322 ) ) , (LDRUM, 

C l 2323) ) 

0700 

EQUIVALENCE 

( IDRM, 

C ( 232 3 ) ) , ( KDRUM , 

C ( 2324 ) ) 

0701 

equivalence 

(L, 

C ( 2325 ) ) , (LI, 

C ( 2 326 ) ) 

0702 

equivalence 

(M, 

C ( 232 7 ) ) , (Ml, 

C ( 2328 ) ) 

0703 

EQUIVALENCE 

(N, 

C ( 2329 ) ) , (IQ, 

C ( 2330 ) ) 

0704 

EQUIVALENCE 

( IQ1, 

C ( 233 1 ) ) , (IQ2, 

C ( 2332 ) ) 

0705 

equivalence 

( IQ3, 

C ( 233 3 ) ) , ( K M AT , 

C ( 2 334 ) ) 

0706 

EQUIVALENCE 

( IMAT , 

C ( 2335 ) ) , ( I USE , 

C ( 2335 ) ) 

0707 

EQUIVALENCE 

( I ADD , 

C ( 2336 ) ) , (ITNUMB, 

C ( 2337 ) ) 

0708 


19 



EQUIVALENCE (ITAPE, C(2338))> 

(P, 

C ( 2339 ) ) 

0709 


EQUIVALENCE (IDEBUG, C ( 2340 ) ) » 

(IFROZ, 

C ( 2341 ) ) 

0710 


EQUIVALENCE (A(l), C(2342)), 

( A( 1350) , 

C( 3691 ) ) 

0711 


EQUIVALENCE (COEFTl(l), C(3692)), 

( COEFT 1(1350), C ( 5041 ) ) 

0712 


EQUIVALENCE (C0EFT211), C(5042)), 

(C0EFT2( 1350) , C(6391)) 

0713 


EQUIVALENCE (COEFT ( 1 ) v C ( 6392 ) ) » 

( COEFT ( 1350 ) , C ( 7741 ) ) 

0714 


EQUIVALENCE ( ATOM ( 1 ) , C(7742)), ( 

ATCM( 303) , 

C ( 8044 ) ) 

0715 


EQUIVALENCE (MATOM(l), C(7742)), 

( M ATOM ( 303 ) 

, C ( 8044 ) ) 

0716 


EQUIVALENCE ( CONS , JFCONS ) , (MTEMP, 

TEMP) 


0717 





0718 





0719 


DIMENSION G ( 20 » 21 ) v A(15,90), 

EN ( 90 ) , 

EN LN ( 90 ) 

0720 


DIMENSION DEL N(90), H0I90), 

S ( 90 ) , 

X ( 20 ) 

0721 


DIMENSION DEL T A ( 20 ) , B0(15), 

PC P ( 25 ) , 

PROD ( 3 ) 

0722 


DIMENSION COEFX ( 20 ) , DX(20), 

FORM( 15) 


0723 


DIMENSION C0EFT1 ( 15,90) , C0EFT2U5, 

90) 


0724 


DIMENSION ELMT ( 1 5 ) , DATA! 23 ) , 

DA TUM ( 3 ) , 

FORMLA( 18) 

0725 


DIMENSION BOX (15), B0F(15), 

ANS ( 454 ) , 

SYSTM( 15) 

0726 


DIMENSION LLMT ( 1 5 ) , MTS YS { 1 5 ) , MD AT A { 23 ) 


0727 


DIMENSION ANSL AB ( 454 ) , C0EFT(15, 

90) 


0728 


DIMENSION MATOMI 101,3) , AT0M(101,3) 


0729 





0730 





0731 


I ARG= 1 MEANS TEST ONLY, IARG=2 MEANS 

. ELIMINATE 

A SPECIES, 1 ARG = 3 

0732 


MEANS ADD ANOTHER SPECIES 



0733 





0734 


C0NS=1 



0735 


MLM= J 



0736 


IF (J-35) 2,2,102 



0737 

102 

IF IJ-70) 1,1,101 



0738 

101 

K= 3 



0739 


MLM=J-70 



0740 


GO TO 3 



0741 

1 

K = 2 



0742 


MLM= J-35 



0743 


GO TO 3 



0744 

2 

K=1 



G745 

3 

IF (IARG-2) A, 5, 7 



0746 

4 

I PR0D=2 



0747 


KLM = 35-MLM 



0748 


TEMP = PROD ( K ) 



0749 


TEMP = LRSF(KLM,TEMP) 



0750 


IF ( TEMP*CCNS ) 12,10,12 



0751 

12 

IPROD = 1 



0752 


GO TO 10 



0753 

5 

KLM - 35 - MLM 



0754 


TEMP = PROC(K) 



0755 


TEMP = LRSF ( KLM, TEMP) 



0756 


IF (TEMP * CONS) 10,6,10 



0757 


TEMP = TEMP +1 



0758 


PROD ( K ) = LLSF( KLM, TEMP) 



0759 


I F { M-J ) 1 1 , 10, 1C 



0760 

11 

I Q3= 1 02 



0761 


102=101 



0762 


IQ 1= 10 



0763 


10 = I Q- 1 



0764 


GO TO 9 



0765 

7 

KLM = 35 - MLM 



0766 


TEMP = PROC(K) 



0767 


TEMP = LRSF (KLM, TEMP) 



0768 


IF (TEMP * 1) 110,10,110 



0769 

no 

MTEMP=MTEMP-JFCONS 



0770 


PROD ( K ) = LLSF ( KLM , TEMP) 



0771 


IF ( M— J )121, 10,10 



0772 

121 

IQ = IG1 



0773 


101=102 



0774 


102=103 



0775 


103=103+1 



0776 

9 

SENSE LIGHT 4 



0777 

10 

RETURN 



0778 


SUBROUTINE 

INPUT 




0779 

0780 

0781 

COMMON C 





0782 

EQUIVALENCE 

( G ( 1 ) t 

C( 1) ) , 

(G1420) , 

C ( 420 ) ) 

0783 

equivalence 

(ANSI 1), 

C ( 421 ) ) , ( ANS ( 454 ) , 

C ( 874 ) ) 

0784 

equivalence 

(HSUM, 

C ( 424 ) ) , 

( SSUM, 

C ( 425 ) ) 

0785 

EQUIVALENCE 

( WTMOLt 

C ( 426 ) ) , 

(CP, 

C ( 427 ) ) 

0786 

EQUIVALENCE 

(DLMPT, 

C ( 428 ) ) , 

(DLMTP, 

C ( 429 ) ) 

0787 

equivalence 

(GAMMA, 

C ( 430 ) ) , 

( ARATIO, 

C ( 431 ) ) 

0788 

EQUIVALENCE 

( VMACH, 

C ( 432 ) ) , 

(SP IMP, 

C ( 433 ) ) 

0789 

EQUIVALENCE 

( VACI , 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

0790 

EQUIVALENCE 

(RHOI , 

C ( 437 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

0791 

equivalence 

(RHO, 

C ( 439 ) ) 



0792 

EQUIVALENCE 

(T PI, 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

0793 

EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI, 

C ( 443 ) ) 

0794 

EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 



0795 

equivalence 

(ETA I, 

C (446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

0796 

equivalence 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C ( 450 ) ) 

0797 

equivalence 

(SIG I« 

C ( 45 1 ) ) , 

(EP SIG, 

C ( 452 ) ) 

0798 

EQUIVALENCE 

(AW SIG, 

C ( 453 ) ) 



0799 

equivalence 

( ANSL AB ( l ) 

, C ( 875 ) ) , 

( ANSLAB(454) 

, C ( 1328 ) ) 

0800 

EQUIVALENCE 

( FORM ( 1 ) , 

C( 1329) ) , 

( FORM ( 15) , 

C( 1343) ) 

0801 

EQUIVALENCE 

(ELMT(l), 

C ( 1344 ) ) , 

( ELMT ( 15 ) , 

C( 1358) ) 

0802 

EQUIVALENCE 

( LLMT ( 1 ) , 

C( 1344) ) , 

( LLMT( 15) , 

C ( 1 358 ) ) 

0803 

EQUIVALENCE 

( DAT A ( 1 ) , 

C( 1359) ) , 

( DAT A ( 23 ) , 

C( 1381 ) ) 

0804 

EQUIVALENCE 

( MDAT A ( 1 ) , 

C ( 1 359 ) ) , 

( MDATA ( 23 ) 

, C( 1381 ) ) 

0805 

EQUIVALENCE 

(EN( 1). 

C( 1382) ) , 

( EN ( 90 ) , C ( 1471) ) 

0806 

EQUIVALENCE 

( ISYS, 

C( 1472) ) , 

( JEAN, 

C ( 1473 ) ) 

0807 

equivalence 

( ACX, 

C( 1474) ) , 

( ACF, 

C ( 1475 ) ) 

0808 

EQUIVALENCE 

(AMX, 

C ( 1476 ) ) , 

(AMF, 

C C 1477 1 9 

0809 

EQUIVALENCE 

( RHOX t 

C( 1478) ) , 

(RHOF , 

C( 1479) ) 

0810 

EQUIVALENCE 

( COEFX ( 1 ) , 

C( 1480) 

), ( COEFX ( 20 ) , C ( 1499 ) ) 

0811 

equivalence 

( DX ( I ) , 

C( 1500) ) , 

( DX ( 20 ) , 

C ( 1 5 19 ) ) 

0812 

EQUIVALENCE 

( FORMLA ( 1 ) 

, C ( 1520 ) ) 

, ( FORMLA ( 18 ) , C ( 1537 ) ) 

0813 

EQUIVALENCE 

( MML A ( 1 ) , 

C( 1520) ) , 

(MMLA( 18) , 

0(1537) ) 

0814 

EQUIVALENCE 

( PROD ( I ) , 

C C 1538 ) ) , 

( PROD ( 3 ) , 

C(1540)) 

0815 

equivalence 

( SYSTM ( 1 ) , 

C( 1541 ) ) , 

( SYSTM (15) 

, C ( 1555 ) ) 

0816 

EQUIVALENCE 

(MTSYS(l) , 

C( 1541 ) ) , 

(MTSYS( 15) , 

C ( 1555 ) ) 

0817 

EQUIVALENCE 

(OF, C ( 1 556 ) ) , 

(FPCT, C ( 1557) ) 

0818 

EQUIVALENCE 

(EQRAT, 

C( 1558) ) 



0819 

equivalence 

(KODE, C ( 1559 ) ) , (KASE, C(1560)> 

0820 

EQUIVALENCE 

(KONT, C ( 1561 ) ) , 

(NF, 

0(1562)) 

0821 

EQUIVALENCE 

(NO, 

C( 1563) ) , 

(NE, 

0(1564)) 

0822 

EQUIVALENCE 

(NOEQ, C ( 1 565 ) ) 



0823 

equivalence 

(KD, C ( 1 763 ) ) 



0824 

EQUIVALENCE 

( BOX ( 1 ) , 

C ( 1 77 1 ) ) , 

(BOX( 15) , 

C( 1785) ) 

0825 

EQUIVALENCE 

(BOF( 1) , 

C( 1786) ) , 

( BOF ( 15) , 

C( 1800) ) 

0826 

EQUIVALENCE 

(HX, 

C( 1801) ) , 

(HF, 

C( 1802) ) 

0827 

equivalence 

( VXPLS, 

C( 1803) ) , 

( VXMIN, 

C( 1804) ) 

0828 

EQUIVALENCE 

( VFPLS, 

C ( 1 805 ) ) , 

(VFMIN, 

C( 1806) ) 

0829 

EQUIVALENCE 

(TELMT(l), C ( 1 807 ) ) , (TELMT(15), C11821)) 

0830 

EQUIVALENCE 

(EN LN ( 1 ) , 

C( 1861 ) ) , 

(EN LN ( 90 ) , 

0(1950) ) 

0831 

equivalence 

(DEL N ( 1 ) , 

C ( 195 1 ) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

0832 

EQUIVALENCE 

( HO ( 1), 

C ( 2041 ) ) , 

( HO ( 90 ) , 

C ( 2 1 30 ) ) 

0833 

EQUIVALENCE 

(S( 1) . 

C ( 2 1 3 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

0834 

EQUIVALENCE 

(X( 1) , 

C ( 2221 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

0835 

EQUIVALENCE 

( DELTA ( 1 ) , 

C ( 2241 ) ) , 

( DELT A ( 20 ) , 

C ( 2260 ) ) 

0836 

EQUIVALENCE 

( BO ( 1), 

C ( 2261 ) ) , 

( BO ( 15) , 

C ( 2275 ) ) 

0837 

EQUIVALENCE 

(PO, 

C ( 2276 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

0838 

EQUIVALENCE 

(SO, 

C ( 22 7 8 ) ) , 

(T LN, 

C ( 2279 ) ) 

0839 

equivalence 

(T, 

C ( 2280 ) ) , 

(AAY LN, 

C ( 228 1 ) ) 

0840 

EQUIVALENCE 

( AAY , 

C ( 2282 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

0841 

EQUIVALENCE 

(HC, 

C ( 22 84 ) ) , 

(TC LN, 

C ( 2285 ) ) 

0842 

EQUIVALENCE 

(PCP( 1) , 

C ( 2286 ) ) , 

( PCP ( 25 ) , 

C ( 2310 ) ) 

0843 

equivalence 

( DATUM ( 1 ) , 

0(2311) ) • 

( DATUM ( 3 ) , 

C ( 2313 ) ) 

0844 

EQUIVALENCE 

(PC, 

C ( 2314 ) ) , 

(TC, 

0(2315) ) 

0845 

EQUIVALENCE 

( IPROB, 

C ( 2 3 1 6 ) ) , 

( IFIXT, 

0(2317) ) 

0346 

EQUIVALENCE 

I IHS, 

C ( 23 1 8 ) ) , 

( ICOND, 

0(2319) ) 

0847 

equivalence 

( ISYM, 

C ( 2320 ) ) , 

( IPROD, 

C ( 2321 ) ) 

0848 

EQUIVALENCE 

( IDID, 

C (2322) ) , 

( L CRUM , 

C ( 2323 ) ) 

0849 

EQUIVALENCE 

( IDRM, 

C ( 2323) ) , 

( KDRUM, 

C ( 2324 ) ) 

0850 

EQUIVALENCE 

(L, 

C ( 2325 ) ) , 

(LI, 

C ( 2326 ) ) 

0851 

equivalence 

(M, 

C ( 2327 ) ) , 

(Ml, 

C ( 2328 ) ) 

0852 

equivalence 

(N, 

C ( 2329 ) ) , 

(IQ, 

C ( 2330 ) ) 

0853 

equivalence 

( I Q 1 , 

C ( 233 I ) ) , 

( IQ2, 

C( 2332) ) 

0854 


21 


I 


EQUIVALENCE 

(IQ3, C ( 2333 ) ) , 

( KMAT , 

C ( 2334 ) ) 

0855 

equivalence 

(IMAT, 0(2335) ) , 

( IUSE, 

C ( 2335 ) ) 

0856 

EQUIVALENCE 

( I ADD , 0(2336) ) , 

( I TNUMB, 

C ( 2337 ) ) 

0857 

EQUIVALENCE 

(ITAPE, C ( 2338 ) ) , 

(P, 

C ( 2339 ) ) 

0858 

EQUIVALENCE 

(IDEBUG, C ( 2340 ) ) , 

( IFROZ, 

C ( 2341 ) ) 

0859 

EQUIVALENCE 

(COEFTl(l), C ( 3692 ) ) 

, ( C0EFT1 (1350) , C ( 504 1 ) ) 

0860 

EQUIVALENCE 

( C0EFT2 ( 1 ) , C ( 5042 ) ) , 

(CCEFT2( 1350) , C(6391)) 

0861 

EQUIVALENCE 

(COEFT(l), 0(6392) ) , 

(COEFTl 1350) , C ( 7741 ) ) 

0862 

EQUIVALENCE 

( ATOM ( 1 ) , C ( 7742 ) ) , 

( ATOM(303) , 

C ( 8044 ) ) 

0863 

equivalence 

(MATOM(l), C ( 7742 ) ) , 

( MATOM ( 303 ) 

, C ( 8044 ) ) 

0864 

EQUIVALENCE 

( A ( 1 ) , C ( 8578 ) ) , ( A ( 690 ) y C ( 9267 ) ) 


0865 

EQUIVALENCE 

( MAN AME ( 1 ) , ANAME ( 1 ) ) , ( MANAME ( 5 ) , AN AME ( 5 ) ) 

0866^ 

EQUIVALENCE 

(KSAN,C( 10623) ) 




EQUIVALENCE 

(WX,C( 10624) ) 




EQUIVALENCE 

(WF,C( 10625) ) 




EQUIVALENCE 

(ASANN, MSANN ) 




EQUIVALENCE 

( ASAN , MSAN ) 








0867 

DIMENSION TELMT ( 15) 



0868 

DIMENS ION 

G ( 20 , 2 1 ) , A ( 15,46) , 

EN (90) , 

EN LN ( 90 ) 

0869 

DIMENSION 

DEL N ( 90 ) , HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

0870 

DIMENSION 

DEL T A ( 20 ) , BO ( 15 ) , 

PC P ( 25 ) , 

PROD ( 3 ) 

0871 

DIMENSION 

COEFX ( 20 ) , DX ( 20 ) , 

FORM{ 15) 


0872 

DIMENSION COEFTK 15,90) , C0EFT2I15 

,90) 


0873 

DIMENSION 

ELMT ( 1 5 ) , D A T A ( 23 ) , 

DATUM ( 3 ) , 

FORMLA( 18) 

0874 

DIMENSION 

BOX ( 15) , BOF (15), 

ANS ( 454 ) , 

SYSTM ( 15) 

0875 

DIMENSION LLMT ( 15) ,MTSYS( 15) ,MDATA(23) 


0876 

DIMENSION 

ANSL AB ( 454 ) , C0EFT(15 

,90) 


0877 

DIMENSION 

MATOM( 101,3) , ATOM (101,3) 


0878 

DIMENSION M ANAME ( 5 ) , ANAME ( 5 ) , 

ANUM ( 5 ) 


0879 


►Moles 


0880 

0881 

SUBROUTINE TO COMPUTE PROPELLANTS 0882 

ASANN = 446060606060 Moles 

0X=466C606C6060 0883 

IF( JEAN-222)51,50,51 0884 

51 CALL BCREAC(ATOM( 101,3) , AT0M( 1» 1) ) 0885 

50 DO 52 1=1,15 0886 

ELMT ( I ) = OOCOO 0887 

B0F( I )=C00C0000C000 0888 

B0X( I )=000C00000000 0889 

DO 52 J= 1 , 46 0890 

A{ I , J ) =000000000000 0891 

52 CONTINUE 0892 

TOT AL = 0.0 0893 

NF=0 0894 

N0=0 0895 

NE=C 0896 

WRITE OUTPUT TAPE 6,400 0897 

400 FORMAT ( 8H 1 INPUT//) 0898 

IOC READ INPUT TAPE 7 , 1 , ( ANAME ( I ) , ANUM ( I ) , 1= 1 , 5 ) , PECWT , AS AN , ENTH , Moles 

2DEN, TEMP, ETHR, DENS 0900 

1 FORMAT (5(A2*F7.5) ,F7.5,A1,F9.5»A1,F8*5,A1,F8«5) Moles 

IF(ANUM( 1) )99»200,99 0902 

99 WRITE OUTPUT TAPE 6 , 402 , ( ANAME ( I ) , ANUM ( I ) , 1= 1 , 5 ) , PECWT , ASAN , ENTH, Moles 

1DEN, TEMP, ETHR, DENS Moles 

402 FORMAT ( IX, 5 ( A2, 1X,F7.4,2X) ,F8.4,2X, A 1 , 2X , F9. 2 , 2X , A 1 , 2X , F8. 3 , 2X , Moles 

2 A 1 , 3X , F8 • 5 ) 0906 

IF ( MS AN - MS ANN ) 501,500,501 


500 

KSANN = 1 



GO TO 502 

>Moles 

501 

KSANN = 0 


502 

DO 9 1=1,5 

J 

9 

TOTAL=TOTAL + ANUM( I ) 

0908 


I F ( ETHR— OX ) 1 1 , 10, 11 

0909 

10 

NO=NO+ 1 

0910 


KK = NO 

0911 


KKK=NO 

0912 


NN= 31 

0913 


GO TO 12 

0914 

11 

NF = NF + 1 

0915 


KK=NF+ 15 

0916 


KKK=NF 

0917 


NN= 32 

0918 

12 

DO 98 J= 1 , 5 

0919 


I F ( ANUM ( J ) ) 96,97,96 

0920 


22 


96 DO 31 1=1, 15 

IF ( ANANE ( J )-ELMT( I ) ) 21,20,21 
2C NHUT=C 
33 K T = I 

GC TO 3G 

21 IF(ELMT( I ) ) 31,22,31 

22 ELMT( I ) = AN AME ( J ) 

NE = NE+ 1 

NHUT= 1 
GO TO 33 
31 CONTINUE 
30 I F ( NHUT )14,15,14 

14 DO 16 1=1, 101 

IF (MATOM( I, 1)-MANAME( J) ) 16,17,16 

17 I I = I 

GC TO 18 
16 CONTINUE 

WRITE OUTPUT TAPE 6,199 
199 FORMAT (321-0 THERE IS A BAD PROPELLANT 
L=- 1 
RETURN 

18 A ( NF , 3 7 ) = ATOM ( 11,2) 

A(NE, 38)=AT0M( 11,3) 

15 A ( KT , KK ) =ANUM ( J ) 

98 CONTINUE 

97 A ( KKK , NN ) =ENTH 
A(KKK,NN+2 )=PECWT 
A(KKK,NN+4 )=DFNS 
A(KKK,NN+1C)=DEN 
A(KKK,NN+12 )=TEMP 
A(KKK»NN+14)=ETHR 
GO TO 100 

20C IF(NE)202,201,2G2 

201 L=0 
RETURN 

202 JE AN=222 

B WX=OOOCOOOCOOOO 

B WF=000C0C0C000C 

B HX=OOOCOCCCCOOC 

B HF=OCOCOOOCOQCC 

B RHOX=OOOOOCCOOCOO 

B RHOF=OCOOOCOOOOOO 

B VXPLS=CCCCCOOOOOCO 

B VXMIN=CGC0C0000000 

B VFPLS=COCOCOOOCOOO 

B VFK IN=OOOOCOOOOOOO 

B ACX=OOCOCOCOOOOO 

B ACF=OOCCOOCOCOCO 

B AMX=OOOOOOCOOOOO 

B AMF=OOCOOOCOOCOO 

KSAN=KSANN 
DC552 J= 1 , NO 
D0552 1=1, NE 

552 A( J,39 ) = A( J, 39)+A( I , 37 ) * A ( I ,J ) 

DO 53 J= 1 , NF 
DO 53 1=1, NE 

53 A( J,40)=A( J,40)+A( I , 37 ) ♦ A ( I,J+15) 

IF ( KS AN ) 9001,9000,9001 

9001 DO 9002 1=1, NO 

ANS { I )=A( I ,33) 

9002 A( 1 , 33 ) = A ( I, 33)*A( I ,39) 

CO 9003 1=1, NF 

G( I ) = A( I , 34) 

9003 A( 1,34 )=A( I,34)*A( I ,40) 

9C0C CONTINUE 

IF (NO) 1000,1001,1000 

1000 DO 55C 1 = 1, NO 

54 HX=HX+A( I,31)*A{ I,33)/A( 1,39) 

55C WX=WX+A( I , 33) 

1001 IF (NF) 1002,1003,1002 

1002 DO 551 1 = 1, NF 

55 HF = HF+A( I,32)*A( I,34)/A( 1,40) 

551 WF = WF + A ( 1,34) 

1003 IF (NO) 1004,1005,1004 

1004 DC 42 1=1, NO 

ACX = ACX + A( I,35)*A( I , 33 ) / A ( 1,39) 

42 AMX=AMX+A( I , 33 ) / A ( I ,39) 


0921 

0922 
C923 
C924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

CARD) 0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

Moles 

0971 

0972 

0973 

0974 
C975 
0976 


►Moles 


J 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 


23 


ACX=ACX/WX 

AMX=WX/AMX 

1C05 IF (NF) 10C6, 1007, 1C06 

1006 DO A3 1=1, NF 

ACF = ACF + A ( 1 , 36 ) * A ( I , 3A ) / A ( I, AO) 

A3 AMF=AMF+A( I,3A)/A( I ,A0) 

ACF=ACF/WF 

AMF=WF/AMF 

1007 IF (WX) 1020,1021,1020 
1 02C HX=HX/WX 

1021 IF (WF) 1022,1023,1022 

1022 HF =HF/WF 

1023 DC 60 1=1, NO 

IF ( A ( 1,35) ) 60,71,60 

60 RHGX=RHOX+A( I , 33 ) /A ( 1,35) 

RHOX=WX/RHCX 

73 DO 61 1=1, NF 

I F ( A ( 1,36) ) 6 1 , 71,61 

61 RHCF=RHOF+A( I,3A)/A(I,36) 

RHOF=WF/RHOF 

GO TO 7 A 

71 RHOX = 0.0 

72 RHOF = 0.0 

7 A IF (NO) 1008, 1009,1008 

1008 DO 57 1=1, NE 
DO 56 J= 1 , NO 

56 B0X( I )=BOX( I )+A( I, J ) * A ( J,33)/A( J,39) 

57 BOX ( I ) =BOX ( I ) /MX 

1009 IF (NF) 1010,1011,1010 
1C1C DC 59 1=1, NE 

DO 58 J= 1 , NF 

58 BOF ( I )=BOF( I)+A(I,J+15)*A(J,3A)/A(J,A0) 

59 BOF ( I ) =BCF ( I ) / WF 
1011 DO 62 1=1, NE 

I F ( A ( 1,38) ) 63 , 62 , 6A 
6 A VXPLS=VXPLS+BCX( I )*A( I ,38) 

67 VFPLS=VFPLS+BOF( I )*A( I ,38) 

GO TO 62 

63 VXMIN=VXMIN+BCX( I ) * A ( I ,38) 

66 VFMIN=VFMIN+ROF( I )*A( I ,38) 

62 CONTINUE 

IF (WX) 1030,1031,1030 

1030 DO AO 1=1 , NO 

AO A ( I , 33 ) = A ( 1 , 33 ) / WX 

1031 IF(WF) 10AC , 1050, 10A0 
1 0 AC DO 10A 1 1= 1 , NF 

10A 1 A ( I , 3 A ) = A ( I , 3 A ) /WF 
C 

C SAVE ELEMENT ARRAY FOR CORE A 

C 

1050 DO 200C 1=1,15 
2000 TELMT ( I ) = ELMT ( I ) 

L = NE 

TOTAL = MOCF (TOTAL, 1.0) 

I F ( TOT AL ) 11A2, 11A3, 11A2 
11A2 KD= 1 

GO TO 9050 
1 1 A3 KD=0 

905C I F ( KSAN ) 90 1 1 , 9010, 9C 1 1 

9011 DO 9012 1=1, NO 

9012 A ( 1,33 )=ANS ( I ) 

DO 9C13 1=1, NF 

9013 A ( I, 3A)=G( I ) 

901 C RETURN 


0989 

0990 

0991 

0992 

0993 
099A 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 
1003 
100A 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 
101 A 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 
1023 
102A 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 Correction 
103A 

1035 

1036 

1037 

1038 

1039 Correction 
10A0 

10A1 
10A2 
1 0A3 
1 OAA 

Moles 

10A6 


►Moles 


SUBROUTINE 

CORE2 




1048 






1049 

CCPMON C 





1050 

EQUIVALENCE 

(6(1), 

cm ), 

( G ( 420 ) , 

C ( 420 ) ) 

1051 

EQUIVALENCE 

(ANSI 1) , 

C ( 42 1 ) ) , ( ANS(454) , 

C ( 874 ) ) 

1052 

EQUIVALENCE 

(HSUP, 

C ( 424 ) ) , 

(SSUM, 

C ( 425 ) ) 

1053 

EQUIVALENCE 

(WTMOL, 

C ( 426 ) ) , 

(CP, 

C ( 427 ) ) 

1054 

EQUIVALENCE 

(DLPPT, 

C ( 42 8 ) ) , 

(DLMTP, 

C ( 429 ) ) 

1055 

EQUIVALENCE 

( GAMP A , 

C ( 430 ) ) , 

( ARATIO, 

C ( 431 ) ) 

1056 

EQUIVALENCE 

( VPACH, 

C ( 432 ) ) , 

(SP IMP, 

C ( 4 33 ) ) 

1057 

EQUIVALENCE 

( VACI , 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

1058 

EQUIVALENCE 

( RHO I , 

C ( 437 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

1059 

EQUIVALENCE 

(RHO, 

C ( 439 ) ) 



1060 

EQUIVALENCE 

(T PI, 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

1061 

EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI , 

C ( 443 ) ) 

1062 

EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 



1063 

EQUIVALENCE 

(ETA I, 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

1064 

EQUIVALENCE 

(AW ETA, 

C ( 443 ) ) , 

(T SIG, 

C ( 450 ) ) 

1065 

EQUIVALENCE 

(SIG I, 

C ( 45 1 ) ) , 

(EP SIG, 

C ( 452 ) ) 

1066 

equivalence 

(AW SIG, 

C ( 453 ) ) 



1067 

EQUIVALENCE 

( ANSLABt 1) 

, C ( 875 ) ) , 

( ANSLAB(454) 

, C ( 1328 ) ) 

1068 

EQUIVALENCE 

( FORM ( 1 ) , 

C( 1329) ) , 

( FORM ( 15) , 

C( 1343) ) 

1069 

EQUIVALENCE 

( MFORP ( 1 ) , 

C( 1329) ) , 

(MFORM( 15) , 

C( 1343) ) 

1070 

EQUIVALENCE 

(ELPTt 1) , 

C( 1344 ) ) , 

( LLMT ( 15) , 

C( 1358) ) 

1071 

EQUIVALENCE 

( LLMT ( 1 ) , 

C ( 1344 ) ) , 

( LLMT ( 1 5 ) , 

C ( 1358 ) ) 

1072 

EQUIVALENCE 

( DAT A ( 1 ) , 

C( 1359) ) , 

(DATAt 23) , 

C( 1381 ) ) 

1073 

EQUIVALENCE 

( MDAT A ( 1 ) , 

C( 1359) ) , 

( PDAT A ( 2 3 ) 

, C ( 1 38 1 ) ) 

1074 

EQUIVALENCE 

( EN ( 1 ) , 

C( 1382) ) , 

( EN ( 90 ) , C ( 1471) ) 

1075 

EQUIVALENCE 

( ISYS, 

C( 1472) ) , 

( JEAN, 

C( 1473) ) 

10 76 

EQUIVALENCE 

( ACX, 

C( 1474) ) , 

( ACF , 

C( 1475) ) 

1077 

EQUIVALENCE 

( APX, 

C ( 1476) ) , 

(AMF, 

C ( 1477 ) ) 

1078 

equivalence 

(RHOX, 

C( 1478) ) , 

(RHOF, 

C( 1479) ) 

1079 

EQUIVALENCE 

( CGEF X ( 1 ) , 

C ( 1480 ) ) , ( COEFX ( 20 ) , C ( 1 499 ) ) 

1080 

EQUIVALENCE 

( DX ( 1 ) , 

C( 1500) ) , 

( DX ( 20 ) , 

C (1519) ) 

1031 

EQUIVALENCE 

(FORMLAt 1 ) 

, C ( 1 520 ) ) 

, ( FORML A ( 18) , C ( 1537 ) ) 

1082 

EQUIVALENCE 

( MPL A ( 1 ) , 

C( 1520) ) , 

( MML A (18) , 

C C 1537 ) ) 

1083 

EQUIVALENCE 

( SYSTP ( 1 ) , 

C( 1541 ) ) , 

( SYSTP( 15) 

, C ( 1555) ) 

1084 

EQUIVALENCE 

( MT SYS ( 1) , 

C ( 1541 ) ) , 

( MT SYS ( 15) , 

C( 1555) ) 

1085 

EQUIVALENCE 

(OF, C ( 1556 ) ) , 

(FPCT, C ( 1 55 7 ) ) 

1086 

EQUIVALENCE 

(EQRAT, 

C ( 1 558 ) ) 



1087 

EQUIVALENCE 

(KODE, C(1559)), ( KASL » C ( 1560 ) ) 

1088 

EQUIVALENCE 

(KONT, C ( 1 56 1 ) ) , 

(NF , 

C( 1562) ) 

1089 

EQUIVALENCE 

(NO, 

C( 1563) ) , 

(NE, 

C ( 1564 ) ) 

1090 

FCUIVALENCE 

( NOEQ , C ( 1 565 ) ) 



1091 

EQUIVALENCE 

( BCX ( 1) , 

C( 1771 ) ) , 

( BOX ( 1 5 ) , 

C ( 1785) ) 

1092 

EQUIVALENCE 

( BCF ( 1 ) , 

C( 1786) ) , 

( BOF ( 15) , 

C( 1800) ) 

1093 

EQUIVALENCE 

( HX, 

C( 1801) ) , 

(HF, 

C ( 1802 ) ) 

1094 

EQUIVALENCE 

( VXPLS, 

C( 1803) ) , 

( VXMIN, 

C( 1804) ) 

1095 

EQUIVALENCE 

( VFPLS, 

C( 1805) ) , 

( VFMIN, 

C( 1806) ) 

1096 

EQUIVALENCE 

(EN LN ( 1 ) , 

C( 1861) ) , 

(EN LN(90) , 

C ( 1950 ) ) 

1097 

EQUIVALENCE 

(DEL N ( 1 ) , 

C( 1951) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

1098 

EQUIVALENCE 

(H0( 1) , 

C ( 204 1 ) ) , 

( HC ( 90 ) , 

C ( 2130 ) ) 

1099 

EQUIVALENCE 

( S ( 1 ) , 

C ( 2 1 3 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

1100 

EQUIVALENCE 

( MX ( 1 ) , 

C ( 222 1 ) ) , 

( MX ( 20 ) , 

C (2240) ) 

1101 

EQUIVALENCE 

(X( 1) , 

C ( 2221 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

1102 

EQUIVALENCE 

( DEL T A ( 1 ) , 

C ( 2241 ) ) , 

( DELT A ( 20 ) , 

C ( 2260 ) ) 

1103 

EQUIVALENCE 

( BC ( 1 ) , 

C ( 2261 ) ) , 

(BC( 15) , 

C ( 2275 ) ) 

1104 

EQUIVALENCE 

(PO, 

C ( 227 6 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

1105 

EQUIVALENCE 

(SO, 

C ( 2278 ) ) , 

(T LN, 

C ( 2279 ) ) 

1106 

EQUIVALENCE 

(T, 

C ( 2280 ) ) , 

( A AY LN, 

C ( 228 1 ) ) 

1107 

EQUIVALENCE 

( A A Y , 

C ( 2282 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

1108 

EQUIVALENCE 

(HC, 

C ( 2284 ) ) , 

(TC LN, 

C ( 2285 ) ) 

1109 

EQUIVALENCE 

(PCP( 1) , 

CI2286) ) , 

( PCP ( 2 5 ) , 

C ( 23 10 ) ) 

1110 

EQUIVALENCE 

( DATUP ( 1 ) , 

C ( 231 1 ) ) , 

( DATUM ( 3 ) , 

C ( 2313) ) 

1111 

EQUIVALENCE 

(PC, 

C ( 231 4 ) ) , 

(TC, 

C ( 2315 > 9 

1112 

EQUIVALENCE 

( IPROB, 

C ( 2316 ) ) , 

( I F I XT , 

C ( 2317 ) ) 

1113 

EQUIVALENCE 

( IHS, 

C ( 2 31 8 ) ) , 

( ICOND, 

C ( 23 1 9 ) ) 

1114 

EQUIVALENCE 

( ISYM, 

C ( 2320 ) ) , 

( IPROD, 

C ( 232 1 ) ) 

1115 

EQUIVALENCE 

( ID I D , 

C ( 2322 ) ) , 

( LDRUM , 

C ( 2323 ) ) 

1116 

EQUIVALENCE 

( I DRW , 

C ( 232 3 ) ) , 

( KDRUM , 

C ( 2 324 ) ) 

1117 

EQUIVALENCE 

(L, 

C ( 232 5 ) ) , 

(LI, 

C (2326 ) ) 

1118 

EQUIVALENCE 

(M, 

C ( 232 7 ) ) , 

(Ml, 

C ( 2328 ) ) 

1119 

EQUIVALENCE 

(N, 

C ( 2329 ) ) , 

(IQ, 

C ( 2330 ) ) 

1120 

EQUIVALENCE 

( IC1, 

C ( 233 1 ) ) , 

( IQ2, 

C ( 2332 ) ) 

1121 

EQUIVALENCE 

( IQ3, 

C ( 2333 ) ) , 

( KPAT , 

C ( 2334 ) ) 

1122 

EQUIVALENCE 

( I PAT , 

C ( 2335 ) ) , 

( IUSE, 

C ( 2335 ) ) 

1123 

EQUIVALENCE 

( I ADD , 

C ( 2336 ) ) , 

( ITNUMB, 

C ( 2337 ) ) 

1124 


c 

B 1 
B 
B 
C 


EQUIVALENCE 

( ITAPE, 

C ( 2 33 9 ) ) , (P, 

C ( 2339 ) ) 

1125 

equivalence 

( IDEBUG, 

C ( 2340 ) ) , (IFROZ, 

CC2341) ) 

1126 

EQUIVALENCE 

( A ( 1 ) , 

C ( 2342 ) ) » ( A ( 1 350 ) , 

C ( 369 1 ) ) 

1127 

EQUIVALENCE 

( C0EFT1 ( 

1), C ( 36 92 ) ) , (C0EFT1 ( 1350) , C(5041 )) 

1128 

EQUIVALENCE 

( CCEFT 2 ( 

1), C ( 504 2 ) ) , (C0EFT2( 1350) , CI6391)) 

1129 

EQUIVALENCE 

{ MCOEF T ( 

1), C ( 6392 ) ) , ( MCOE F T ( 1 3 

50), C ( 774 1 ) ) 

1130 

EQUIVALENCE 

( COFF T { 1 

), C ( 639 2 ) ) , (COEFT( 1350) , CI7741)) 

1131 

EQUIVALENCE 

( ATOM ( 1 ) 

, C ( 7742 ) ) , { ATCM ( 303 ) , 

C ( 8044 ) ) 

1132 

EQUIVALENCE 

( MA TOM ( 1 

), C ( 774 2 ) ) , ( M A TOM (303) 

, C ( 8044 ) ) 

1133 

EQUIVALENCE 

(KORE, C ( 8C47 ) ) 


1134 

EQUIVALENCE 

{ DLNT , LN T ) 

, ( SUM, M SUM) , { BLK , MBLK ) , { TMP , MT MP ) , ( M f , BMT ) 

1135 

EQUIVALENCE 

( PROD ( 1 ) 

, C ( 1 538 ) ) , ( PROD ( 3 ) , 

C( 1540) ) 

1136 





1137 

DIMENSION 

G ( 20 , 2 1 ) , 

A ( 15,90) , EN ( 90 ) , 

EN LN ( 90 ) 

1138 

DIMENSION 

DEL N ( 90 ) , 

HO ( 90 ) , S ( 90 ) , 

X ( 20 ) 

1139 

DIMENSION 

DELTAJ2C) , 

80(15), PC P ( 25 ) , 

PROD ( 3 ) 

1140 

DIMENS ION 

COEF X ( 20 ) , 

DX ( 20 ) , FORM ( 15) 


1141 

DIMENSION COEFT1 ( 15,90 

) , COEFT 2(15,90) 


1142 

DIMENSION 

ELMT ( 1 5 ) , 

DAT A { 23 ) , DA TUM ( 3 ) , 

FORMLAI 18) 

1143 

DIMENSION 

BOX( 15) , 

BOF ( 1 5 ) , AN S ( 454 ) , 

SYSTM{ 15) 

1144 

DIMENSION LLMT( 15) ,MTSYS( 15) ,MDATA(23) 


1145 

DIMENSION 

ANSL AB { 454 

), COEF T ( 1 5 , 90 ) 


1146 

DIMENSION 

M A TOM ( lClt 

3), A TOM (101,3) 


1147 

DIMENSION MX ( 20 ) , MCOEF 

T ( 15,90 


1148 

DIMENSION MFORM (15) 



1149 





1150 

BMT =6C6C6C606C60 



1151 

GAS =0CC00C09CC2 7 



1152 

BLK =0C000C00CC60 



1153 





1154 

K5 = 0 





REWIND 3 




1155 

NO EQ=0 




1156 

I TEST=M1 




1157 

SIZE=18.5 




1158 


T0= TC 


H,P 


555 

IF (IPROB-3) 557,563*9000 

H P 

9000 

IF (IPRCB-4) 565,565,9001 

U P 

557 

PC = PC/14.696006 

1160 

Li, X 


PO=PC 

1161 

9001 

IF(T0)559, 559,561 


Correction 

559 

TC LN= 8.25 

1163 


GO TO 431 

1164 

561 

TC LN=LOGF ( TO ) 


Correction 


GO TO 431 

1166 

563 

PO = PC 

1167 


GO TO 431 

1168 

565 

T= TC 

1169 


PO=O.C 

1170 


T LN=LOGF ( T ) 

1171 



1172 


START CALCULATION FOR NEW OVERALL COMPOSITION 

1173 



1174 

431 

I ADD= 1 

1175 


IF (IFROZ) 1565,379,1432 

1176 

1565 

IF ( IUSE ) 1432,1432,433 

1177 

1432 

DO 432 K= 1 , N 

1178 


EN ( K ) =C • 0 

1179 


EN LN ( K ) =0 • 0 

1180 

432 

DEL N ( K ) =0 • 0 

1181 


AAY LN=5 . 0 

1182 

433 

SENSE LIGHT 0 

1183 


IF (IPROB-2) 435,445,434 

1184 

434 

IF (IPROB-4) 455,465, 9C02 



9002 

IF (IPROB-5) 9003,9003,379 



9003 

I F ( I ADD-2 5) 9004,9004, 2 31 



9004 

I F ( PCP ( I ADC) ) 231,2 31,9005 



9005 

PO=PCP( IADC) 




I F ( I ADD- 1)9008, 9006,9008 



9006 

T LN=TC LN 


► H,P 

9008 

SENSE LIGHT 1 




SENSE LIGHT 4 




K 5= 1 




IK5= I ACD 




I PK5= I PROB 




I ADD = 1 




I PR08= 1 




GO TO 13 




435 IF ( I ADD- 1 ) 379,436,441 

436 SENSE LIGHT 1 

437 T LN=TC LN 
I TROT = 3 

438 IF C PCP ( I ACO ) ) 231,231,439 

439 SENSE LIGHT 4 
PO = PC/PCP( I ADD ) 

GO TO 13 

441 IF (IAGD-25) 438,438,231 
445 IF (IACD-1) 379,447,441 
447 SENSE LIGHT 2 
GO TO 437 

455 IF ( I A CD— 2 5 ) 459,459,231 

459 IF (PCP(IACD)) 231,231,460 

460 T=PCP { I ACO ) 

T LN= LOGF(T) 

GO TO 473 

465 IF (IACD-25) 469,469,231 
469 IF ( PCP ( I ADD ) ) 231,231,470 
47C P0=PCP( IADC ) 

473 SENSE LIGHT 2 
SENSE LIGHT 4 
C 

C BEGIN CALCULATIONS FOR CURRENT POINT 

C 

13 PO LN=LOGF(PO) 


: CHECK TEMPERATURE RANGE OF THERMODYNAMIC DATA 

C 

IF (IPROB-2) 17,17,19 
17 T=EXPF(T LN) 

19 IF ( COEFT (7,1) — T) 21,27,27 
21 IF (COEFT ( 7, 1 )-5000 *0 ) 23,31,231 
23 DO 1123 K= 1 » 1 5 
DO 1123 J = 1,90 
1123 COEFT(K, J)=C0EFT1 (K, J) 

SENSE LIGHT 4 
GO TO 19 

25 DO 1125 K = 1,15 
DO 1125 J = 1,90 
1125 C0EFT(K,J)=C0EFT2(K,J) 

SENSE LIGHT 4 


27 

29 

31 


37 

38 


39 


40 


42 


GO TO 19 

IF ( T-COEFT (6, 1 ) ) 29,37,37 
IF ( 300.0-COEFT (6,1)) 25,31,231 
IF (SENSE LIGHT 4) 38,305 

ELIMINATE THOSE SPECIES WHICH DO NOT HAVE DATA IN THIS INTERVAL 

IF (SENSE LIGHT 4 ) 38,142 
SENSE LIGHT 4 
DO 40 J= 1 » N 

IF ( COEFT ( 8 , J ) ) 40,39,40 
CALL BYPASS (J,2) 

EN LN ( J ) =0 • 0 
EN ( J ) =0.0 
DEL N ( J ) =0 . 0 
CONTINUE 

BEGIN ITERATION FOR COMPOSITION 

10=10 
101=101 
102=102 
103=103 
I T NUMB = 30 


43 

DC 

48 J= 1 

, M 




CALL BYPASS 

( J , 1 ) 



IF 

( IPROD 

-2) 

48,45 

,49 

45 

IF 

(EN LN 

( J) 

♦SIZE- 

PO LN) 

46 

EN 

( J ) =0. 0 





GO 

TO 48 




47 

EN 

( J ) = EXPF ( EN LN ( J 

) ) 

48 

CONTINUE 





IF 

{ IPROB 

-2) 

49,49 

,51 

49 

T - 

EXPF (T 

LN) 



51 

AAY=EXPF( 

A AY 

LN) 



1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

Correction 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 


27 


C CALCULATE HEAT CAPACITY, ENTHALPY AND ENTROPY 

C 

IF IXT=3 

IF (SENSE LIGHT 2) 52,55 

52 SENSE LIGHT 2 

IF (SENSE LIGHT 4) 53,55 

53 SENSE LIGHT 4 
I F I XT= 1 

IF ( I TNUMB-30 ) 55,54,55 

54 I F I X T = 2 

55 CP SUM = 0 • 0 
DO 60 J = 1 , N 

CALL BYPASS (J,l) 

IF ( I PROD-2 ) 60,56,60 

56 IF (IFIXT-2) 59,50,57 

57 CPSUM=CPSUP+( ( ( (COEFT (12,J)*T+C0CFT(11,J)) *T+COEFT ( 10, J ) ) *T+COEFT( 
19, J ) )*T + C0EFT(8, J) )*EN(J) 

58 HO ( J ) = ( ( ( ( COEF T ( 12,J)/5.0)*T+COEFT( 1 1 , J ) /4 . 0 ) * T + COEF T ( 10,J)/3.0)*T 
1+COEFT (9,J ) / 2 • 0 ) *T +COEFT( 13,J) / T+COEF T ( 8 , J ) 

59 S( J ) = ( { ( (CCEFT( 12, J )/4.0 ) * T+COEFT { 1 1 , J ) /3 . 0 ) * T + COEFT ( 10 , J ) /2 . 0 ) *T 
1+C0EFT(9,J) )*T+C0EFT(8,J)*T LN+COEFT ( 1 4 , J ) -EN LN(J) 

60 CONTINUE 


C 

C 

C 


61 


910 

911 

912 
8C 
81 
83 

85 


88 

87 

C 

C 

C 

91 

93 

95 


96 

97 

99 

101 

103 

104 

105 


CONSTRUCT MATRIX AND SOLVE THE EQUATIONS 


CALL MATRIX 

IF (SENSE LIGHT 4) 61,171 
SENSE LIGHT 4 
CALL GAUSS 

IF (IDEBUG) 910,80,910 
DO 911 1 = 1, IMAT 
WRITE UUTPLT TAPE 6,912, (G 
WRITE OUTPUT TAPE 6,912, (X 
FORMAT (8E14.6) 

IF (ID ID— IN AT ) 81,85,81 

IF (SIZE-18.5) 83,83,311 

SIZE=27.5 

GO TO 43 

ITNUMB=ITNU'MB-1 

DO 87 K= 1 , I MA T 

IF ( ABSF(DELTA(K) 1-0.5F-4) 

IF (SIZE-18.5) 83,83,315 

CONTINUE 


( I , K) ,K=1,KMAT) , DELT A ( I ) 
( I ) ,1=1, IMAT) 


87,87,88 


OBTAIN CORRECTIONS TO 


THE ESTIMATES 


D LN T=X( IC2) 

IF (IFIXT-2) 93,95,379 
D LN T=0 . 0 
CO 101 J= 1 , M 
CALL BYPASS (J,l) 

IF (IPROC-2) 96,97,96 
DEL N ( J ) =0 • 0 
GO TO 101 

DEL N(J)=HC(J)*D LN T-HO ( J ) +S ( J ) 
DO 99 K= 1 , L 

DEL N ( J ) =DEL N ( J ) +A ( K , J ) *X ( K ) 
CONTINUE 

IF (L-IQ) 103,109,109 
J = M1 

DO 107 K=L 1 , I Q 
CALL BYPASS (J,l) 

IF ( I PROD-2 ) 105,106, 105 
DEL N ( J ) =0 • 0 
J = J + 1 


GO TO 104 

106 DEL N(J)=X(K) 

J = J + 1 

107 CONTINUE 
109 AMBOA= 1.0 

AMBDA 1= 1 • 0 

IF ( ABSF ( D LN T ) -ABSF ( X ( I Q 1 ) ) ) 501,913,913 
501 SUM = ABSF ( X ( 101) ) 

GO TO 915 

913 SUM= ABSF ( D LN T) 


1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

Correction 

Correction 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1 333 Correction 

1334 

1335 

1336 


915 DO 917 J=1,M 

IF ( EN ( J ) ) 917,1915, 916 

916 SUM=MAX1F ( CEL N ( J ) , SUM ) 

GO TO 917 

1915 IF (DEL N ( J ) ) 917,917,1917 

1917 SUN 1 = A t5 S F ( ( PO LN-9.212-EN LN(J))/DEL N ( J ) ) 

AMBDA 1=M IN IF ( SUM 1, AMBDA 1 ) 

917 CONTINUE 

IF (SUN-2. C) 1110,1110,110 

110 AMBPA=2.G/SUM 

111C AMBDA =MIN1F( AMBDA, AMBDA1 ) 

92C IF (IDEBUG) 921,111,921 

921 WRITE OUTPUT TAPE 6,923, T , P , AA Y , AMBDA, ( ( COE F T ( K , J ) , K= 1 , 3 ) , 
l EN ( J ) , EN LN ( J ) , DEL N ( J ) , HO ( J ) , S ( J ) , J = l , N ) 

923 FORMAT ( 4E25 . 8/ ( IX , 3A6 , 5E 1 5 . 6 ) ) 

C 

C APPLY CORRECTIONS TO THE ESTIMATES 

C 

111 DO 113 J= 1 » M 

113 EN LN ( J ) =EN LN ( J ) + AMBDA*DEL N(J) 

IF (ICOND-2) 115,121,375 
115 DO 117 J = M 1 , N 
117 EN( J)=EN( J)+AM6DA*DEL N(J) 

121 T LN=T LN ♦ AMBD A*D LN T 

A AY LN=AAY LN- AMBCA*X(IU1) 

IF (SENSE SWITCH 6) 122, 124 

122 IF (IDEBUG) 1122,123,1122 
1122 IDEBUG=0 

GO TU 231 

123 IDEBUG= 1 
C 

C TEST FOR CONVERGENCE OF ITERATION 

C 

1 2 A IF (ITNUMB) 125,132,125 

125 IF { AMBDA- 1.0) 43,1124,231 
1124 P=0.0 

DO 1126 J=1,M 

IF (EN LN ( J ) ) 2125, 1126,2125 
2125 P=P+EXPF ( EN LN ( J ) ) 

1126 CONTINUE 

IF (ABSF( (P0-P)/P0)-0.5E-5) 126,126,43 

126 SUM=P 

I F ( ICOND-2 )127,129,375 

127 DO 128 J = M 1 , N 

128 SUM=SUN+ABSF(EN( J) ) 

129 DO 130 J= 1 , N 

IF (J-M) 1129,1129,1130 

1129 IF ( ABSF ( EN ( J ) *DEL N ( J )/SUM )-0. 5E-5 ) 130,130,43 
113C IF ( ABSF (DEL N ( J ) /SUM )-0. 5E-5 ) 130,130,43 

130 CONTINUE 

132 IF (SENSE LIGHT 4) 133,133 

133 GO TO 13 
C 

C ELIMINATE THOSE SPECIES WITH NO DATA AT THIS TEMPERATURE, ADD 

C THOSE WITH DATA AT THIS TEMPERATURE 

C 

142 DC 170 J = 1 , N 

IF ( MCQEFT ( 1 , J )-NT ) 170,500,170 
50C IF ( COEFT ( 5 , J ) + 150. 0-T) 285,143,143 

143 IF ( T- CO EFT (4»J ) + 1 50 • 0 ) 295,144,144 

285 IF ( 50C0.C-C0EFT(5, J) ) 144,144,301 
295 IF (COEFT( 4, J )-300.C) 144,144,301 

144 IF (J-M) 145,145,146 

145 CALL BYPASS (J,3) 

GO TO 17C 

301 CALL BYPASS (J,2) 

EN ( J ) =0.0 
EN LN ( J ) =0 • 0 
DEL N ( J ) =0 . 0 
GO TO 170 

146 IF ( EN ( J ) ) 147, 148, 170 

147 EN ( J )=C.C 
DEL N ( J ) =0 • 0 
CALL BYPASS (J,2) 

GO TO 42 


1337 

1338 

1339 

1340 

1341 Correction 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

Correction 

Correction 

Correction 

1375 
1 *76 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1 393 Correction 

1 394 Correction 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 


C SKIP CONDENSATION CHECK IF T IS HIGHER THAN MELTING POINT wHLN 

C TESTING SOLID, OR LOWER THAN MELTING POINT WHEN TESTING LIGUID 

C 

148 IF (COEFT ( 4 , J )-COEFT{ 5 , J-l ) ) 159,149,150 

149 IF ( COEFT ( 4 , J ) -T ) 2153,170,170 

2153 IF ( EN { J- 1 ) ) 1 70,153,2154 

2154 IF (C0EFT(4, J1+150.9-T 1 2155,21 55,2157 

2155 FN( J) = EM J-l) 

CALL BYPASS (J,3) 

J = J-1 

GO TO 3156 

2157 EN( J-l ) = EN( J-l 1/2.0 
EN( J)=EN( J-l) 

T LN=LCGF(COEFI (4, J ) ) 

CALL BYPASS ( J , 3 ) 

GO TO 42 

15C IF (COEFT ( 5,J)-COEFT (4,J + 1 ) ) 153,151,153 
151 IF ( T-COEFT ( 5, J) ) 3153,170,170 

3153 IF ( FN ( J + 1 ) ) 170, 153,3154 

3154 IF(T+150.0-C0EFT(5, J) ) 3155,3155,3157 

3155 EN ( J ) = EN ( J + 1 ) 

CALL BYPASS ( J , 3 ) 

J = J+ 1 


1410 

1411 

1412 

1413 

1414 


» Correction 


3156 CALL BYPASS(J,2) 

EN ( J ) =C . C 

DEL N(J 1=0.0 
GO TO 42 

3157 EN(J+1 ) = EN(J+1 1/2.0 
EN ( J 1 =EN ( J+ 1 1 

T LN = LCCF(C0EFT(5, J 1 1 
CALL BYPASS ( J , 3 1 
GO TO 42 


C 1418 

C CHECK FOR CONDENSATION 1419 

C IF MORE THAN ONE CONDENSED PHASE OF ANY SPECIES CAN EXIST THE 1420 

C PHASE STABLE AT THE HIGHER TEMPERATURE MUST PRECEED THAT STABLE AT 1421 

C THE LOWER TEMPERATURE CN MASTER TAPE 1422 

C 1423 

153 DO 155 K=2 , 3 1424 

SUM=COEFT ( K , J 1 1425 

DO 154 1=1,6 1426 

TMP=ARSF(3C,SUM) 1427 

B SUM=ALSF (6000000, SUM) 1428 

I F ( MTMP-MBLK 1 154,156,154 1429 

154 CONTINUE 1430 

155 CONTINUE 1431 

K=3 1432 

1=5 1433 

GO TO 159 1434 

156 1=1-2 1435 

IF (I) 157,158,159 J 436 

157 K=2 1437 

1=5 1438 

GO TO 159 1439 

158 K=2 1440 

1 = 6 1/441 

159 F0RM(2)=C0EFT(2, J) 1442 

F0RM(3)=C0EFT(3, J 1 1443 

1=6*1 1444 

J J=42- I 1445 

1=1 1446 

JJ=JJ 1447 

SUM = FORM ( K ) 1448 

B SUM = ARSF ( J J , SUM ) 1449 

M J J= J J-6 1450 

TMLJ = FORM ( K 1 1451 

TMLJ = LRSF ( MJ J , TMLJ 1 1452 

M J J = 36- 1 1453 

B SUM. 1 = LLSF ( MJJ,GAS) 1454 

B TEMP=LRSF( JJ,SUM1) 1455 

MJ J = 42- I 1456 

K FORM(K)=LLSF(MJJ,SUM) 1457 

CO 160 K= 1 , M 1458 

IF (MF0RM(21— MCOEFT (2,K) ) 160,1160,160 1459 

1160 IF ( MFGRM ( 3 l-MCOEFT (3,K) ) 160,162,160 1460 


160 CONTINUE 

CALL BYPASS (J,3) 

GO TO 170 

162 CALL BYPASS (K,l) 

IF ( I PROD-2 ) 170,163,170 

163 HO ( J ) = ( ( ( ( COEFT ( 12, J ) /5. 0 ) *T+COEFT ( 1 1 , J ) /4 . 0 ) * T+COEFT ( 10,J)/3.0)*T 
1+COEFT (9,J)/2*0)*T +C0EFT(13,J) /T+COEFI (8, J) 

S( J)=( ( ( ( CCEFT ( 12 , J ) /4.0 )* T+CO EFT ( 1 1 , J ) /3 . 0 )* T+COEFT ( 1 0 , J ) /2 . 0 )* T 
1+COEFT ( 9, J ) )*T+C0EFT(8,J)*T LN+COEFT ( 14, J) 

IF (H0( J)-S( J)-HO(K)+S(K)-DEL N(K) ) 164,164,170 

164 CALL BYPASS (J,3) 

EN ( J ) =C • 0 

GO TO 42 
17C CONTINUE 
C 

C IF COMPOSITION HAS BEEN CORRECTLY DETERMINED CALCULATE THE 

C EQUILIBRIUM PROPERTIES, OTHERWISE CONTINUE ITERATION 

C 

I F { SENSE LIGHT 4) 1170,1172 
117C SENSE LIGHT 4 
GO TO 42 

1172 IF (ITNUMB) 42,971,42 
971 WRITE OUTPUT TAPE 6,973, IADD 

973 FORMAT (70FL30 ITERATIONS DID NOT SATISFY CONVERGENCE REQUIREMENTS 
1 FOR THE PCINT 15) 

GO TO 42 
C 

C CALCULATE EQUILIBRIUM PROPERTIES 

C 

171 DO 1171 I = 1,454 
1171 ANS(I) = ANSLAE ( I ) 

WTKOL=AAY/P 

HSUM=G(IQ2,IQ1)*T/AAY 

SSUM=O.C 

DO 183 J = 1 , N 

CALL BYPASS (J,l) 

IF ( I PROD-2 ) 183,181,183 
181 SSUM=SSUM+S( J)*EN( J) 

183 CONTINUE 
1183 SSUM=SSUM/AAY 
IMAT=IMAT-1 
CALL GAUSS 

IF ( I D ID- I M AT ) 172,174,172 

172 CPR=CP SUM/ A AY 
GAMMA=CPR/(CPR-( l.O/WTMOL ) ) 

DLMTP=C.O 

DL MPT = G • 0 
GO TO 185 

174 DLMTP = X ( I Q I ) 

IF ( ABSF(DLMTP)-27.5) 1174,1174,172 

1174 CPR=G( IQ2, 102) 

DO 175 J= 1 , I Q 1 

175 CPR = CPR-G( IQ2, J)*X( J) 

CPR=CPR/AAY 

1175 I MAT= I MA T- 1 
CALL GAUSS 
DLMPT=0 • 0 

DO 179 J- 1 , L 

179 DLMPT = CLMPT + G( I01,J)*X(J) 

DLMPT= ( P-DLMPT ) /DLMPT 

IF ( DLMPT— 27 • 5 ) 180,180, 172 

18C GAMMA= 1.0/ ( l.O + DLMPT-I { 1 • O-DLMT P ) **2 ) / (CPR*WTMOL) ) 

IF (GAMMA) 172,172,185 

185 IF (IPROB-2) 186,186,207 

186 IF (IALD-2) 187,191,197 

187 WTMOLC=WTMCL 
TC = T 

PC = P 

HC=HSUM 

SO=SSUM 

188 T PI=-CLMTP/(WTMOL+CPR) 

T ETA= 1000 .0/ (CPR*TC*1 *98726) 

T SIG=-( l.C-DLMTP) / (WTMOL*CPR) 

GO TO 207 
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1464 

1465 

1466 

1467 

1468 
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1471 

1472 

1473 

1474 

1475 

1476 

1477 
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1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 


31 


c 

C CHECK FOR CONVERGENCE AT THROAT 

C 

191 CHST AR=HC— HSUM - ( GAMMA* T/ { 2. 0* WTMCL ) ) 

IF (ABSF(DFSTAR/(HC-HSUM) )-0.4E-4) 197,197,192 

192 IF(ITROT) 193,197,193 

193 PC P ( 2 ) =PC P ( 2 ) / ( 1.0 + 2.0*DHSTAR*WTM0L/ ( T *( GAMMA* 1 . 0 ) ) ) 

PO = PC/PCP( I ADO ) 

I TROT= I T RO T— 1 
IF (IDEBUG) 929,194,929 

929 WRITE OUTPUT TAPE 6 , 923, DHSTAR, HC , HSUM , PCP ( I ADD ) 

194 SENSE LIGHT 4 
GO TO 13 

C 

C CALCULATE PERFORMANCE PARAMETERS 

C 

197 SP IMP=294.98*SQRTF( (HC-HSUM)*1 .98726E-3) 

RHO I =RHO*SP IMP 
SUM=T/(2.0*(HC-HSUM) ) 

PI I=SUM* (WTMOL-WTMOLC)/(WTMOL*WTMOLC) 

ETA I = SUM*( TC-T )/( TC*T* 1.98726) *1000.0 
SIG I = SUM/ W TMOL 

T P I = ( ( (WTMOLC-WTMOL)/WTMOLC)-DLMTP)/(WTMOL*CPR) 

T ETA=1000.0/(CPR*TC*1. 98726) 

T SIG=-( l.C-DLMTP)/(WTMOL*CPR) 

AW=(86.45 79*T)/( A A Y * 1 4 . 696006*S P IMP) 

AW PI=- ( ( 1.0-DLMTP)/{WTMULC*CPR)+1.0/GAMMA+PI I) 

AW FT A = T ETA* ( 1 . O-DLMTP ) -E T A I 
AW SIG=1. O/GAMMA- SIG I 
IF ( I ADD-2 ) 203,201,203 
201 AW T = AW 

CSTAR=32. 174*PC*14.696C06*AWT 

CSTRPI=1.0+AW PI 

STR ET A= AW ETA 

STR SIG=0.C 

AWT P I = AW PI 

AWT ET A = A W ETA 

AW S I G=0 . 0 

203 CF=32 • 174*SP IMP/CSTAR 
AR AT IO=AW/AWT 

VAC I = SP IMP + P*14.696006*AW 
RHCVAC=RHO*VACI 

VMACH=SP IMP/SQRTF ( 86.4579* G A MM A*T/WTMCL) 

EP P I = AW PI-AWT PI 
EP E T A = A W ETA-AWT ETA 
EP SIG=AW SIG 
207 HSUM = HSUM* 1 .98726 
SSUM=SSUM*1. 98726 
CP=CPR* 1 .98726 
C 

C OBTAIN CCMPOS I T ICN IN MOLE FRACTIONS 

C 

SUM = P 

IF (ICUND-2) 2C 9,213,375 
209 DO 211 J = M I , N 
211 SUM=SUM+EN( J) 

213 DO 215 J - 1 , N 

215 ANS (4*J+34 )=EN(J ) /SUM 

IF (IPRCB-2) 217,217,220 

217 ANS ( 1 ) =PCP { I ADC ) 

218 IF ( I A CD-2 ) 220,219,219 

219 ANSI 1 5 ) =CST AR 
ANS ( 24 ) =CSTRP I 
ANS ( 29 ) =STR ETA 
ANS ( 34 ) =STR SIG 

22C ANS ( 2 ) =P 
ANS ( 3 ) =T 
K=34+4*N 
C 

C PRINT CUT THE CALCULATED ANSWERS 

C 

IF ( IDEBUG) 1221,222, 1221 
1221 WRITE OUTPUT TAPE 6 , 22 l , ( ANS (I) , I = 1 , K ) 

221 FORMAT ( 1H // / / 5E 20 . 8/ 5E 20 . 8/ 5E 20 . 8/4E 20 . 8/5E 20. 8/ 5E20 . 8/ 5E20 . 9/// 
1 ( 3( 7X,3A6,F8.5) ) ) 

GO TO 9009 
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32 


2 22 

WRITE 1 APE 3, (ANS(I), 1 = 1,454) 


1611 


NO EC=,\0 EC + 1 



1612 

9009 

IF(K5)9^P7, 2223,9007 



H,P 

9C0 7 

IACD = I K 5 



H,P 


I PROB 2 I PK 5 



H,P 

2223 

IF ( I ADO-2 ) 223,225,225 



1613 

223 

IF (IPkPB-2) 224,1224,1223 



1614 

224 

IF (IFkOZ) 1223, 1224, 1224 



1615 

1224 

PCP(2)=({GAMMA+1.C)/2.C)»* ( GAMM A/ ( G AMM A- 1 . 0 ) ) 


1616 


T LN= T LN+LOGFI 2 . 0/ ( GAMM A ♦ 1 . 

0)) 


1617 

1223 

DO 1225 I = 1,454 



1618 

1225 

ANSLABI I ) = ANSI I ) 



1619 

225 

IACD=IADC+1 



1620 


GO TO 433 



1621 





1622 

231 

IF (NO EC) 378,378,1231 



1623 

1231 

IF ( IFKOZ) 2 32,379,235 



1624 

232 

I F ( I ACD-2 ) 378,233,378 



1625 

233 

IF { I DEBUG ) 378,234,378 



1626 

234 

CALL COREA 



1627 


IF (KORF) 1234,1,1234 



1628 

1234 

RETURN 



1629 

235 

IF ( I PROB— 2 ) 237,237,239 



1630 

237 

CALL COR F 3 



1631 


Rf T URN 



1632 

239 

WRITE TAPE 3 , ( G ( I ) , 1=1,8044) 


1633 


CALL CCRF5 



1634 


RF T URN 



1635 





1636 


ERROR PRINT OUT 



1637 





1638 

305 

WRITE L'LJTPLT TAPE 6,306, T,IADD 


1639 

306 

FORMAT (17PLTHC TEMPERATURE 2 

E 12 . 4 , 34H K, IS OUT OF RANGE FUR THE P 

1640 

10INT 15) 



1641 


IF (60C0.0-T) 309,307,307 



1642 

307 

IF (T-20C.C) 1309,308,308 



1643 

3C8 

GO TO 142 



1644 

1 3C9 

IF I IACO-1 ) 309 , 1310,309 



1645 

1310 

IF (IPKOB-2) 1311,309,309 



1646 

1311 

IF I ITCST-N ) 1312,1312,309 



1647 

1312 

DC 1313 J=ITE$T,N 



164 8 


CALL BYPASS ( J , 1 ) 



1649 


IF (IPROn-2) 1315,1313,1313 



1650 

1313 

CONTINUE 



1651 


GO TO 309 



1652 

1315 

I TEST 2 J-* 1 



1653 


CALL BYPASSIJ, 3) 



1654 


GO TC 1376 



1655 H,P 

309 

PCP ( 25 ) =PCP ( I ADD ) 



Correction 


iai:u=25 



Correction 


IF (SENSE LIGHT 4) 42,42 



1657 

311 

WRITE OUTPUT TAPE 6,312, IMAT 

, ID 1 0 


1658 

312 

FORMAT I/15H1TRIED TO SOLVE 

I3.22H EQUATIONS, 

ELIMINATED 13) 

1659 


SIZE 2 18#5 



Correction 


GO TU 375 



1660 

315 

WRITE CUT PL T TAPE 6,316, 



1661 

3 1 fc 

FORMAT ( /47H1RCSIDUALS FROM 

SUBROUTINE GAUSS 

EXCEED 0.5E-4) 

1662 


SIZE 2 18.5 



Correction 

375 

IF I IDEKUG) 231,377,231 



1663 

377 

I DEBUG 2 1 



1664 

1376 

I F ( IPROB-3 ) 1377, 555,555 



1665 H,P 

1377 

PC=PC*14. 656006 



1666 


GO TO 555 



1667 

378 

WRITE TAPE 3 , ( C ( I ) , I 2 1 , 8C44 ) 



1668 


BACKSPACE 3 



1669 


RETURN 



1670 

379 

REWIND 4 



1671 


PAUSE 77777 



1672 


c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE GAUSS 


SUBROUTINE GAUSS SOLVES ANY LINEAR SET OF UP TO TWENTY EQUA1IONS, 
BY ITERATION IF NECESSARY 


FORTRAN PON I TOR UNDER NORMAL OPERATING CONDITIONS WILL TAKE CARE 
OF OVER-UNDER FLOW 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

equivalfnce 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( G ( 1 ) » 

C ( 1 ) ) , 

( G ( 420 ) , 

C ( 420 ) ) 

(ANSI 1) , 

C ( 42 1 ) ) , 

( ANS1454) , 

C ( 874 ) ) 

( HSUM, 

C ( 424 ) ) , 

( S SUM , 

C ( 425 ) ) 

( WTMOL » 

C ( 426 ) ) , 

(CP, 

C ( 427 ) ) 

( DLMPT , 

C ( 428 ) ) , 

( DLMTP , 

C ( 429 ) ) 

(GAMMA, 

C ( 430 ) ) , 

( ARATIQ, 

C ( 431 ) ) 

( VMACH , 

C ( 432 ) ) , 

(SP IMP, 

C ( 433 ) ) 

( VAC I , 

C (434 ) ) , 

(CF, 

C ( 436 ) ) 

( RHO I , 

C ( 437 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

(RHO, 

C ( 4 39 ) ) 



(T PI, 

C ( 440 ) ) , 

(PI I, 

C ( 44 1 ) ) 

(EP PI, 

C ( 442 ) ) , 

(AW PI , 

C ( 443 ) ) 

(T ETA, 

C ( 445 ) ) 



(ETA I, 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C ( 450 ) ) 

(SIG I, 

C ( 451 ) ) , 

(EP SIG, 

C ( 452 ) ) 

(AW SIG, 

C ( 453 ) ) 



( ANSL AB ( 1 ) 

, C ( 875 ) ) , 

( ANSLAB(454) 

, C ( 1328 ) ) 

( FORM ( 1 ) , 

C( 1329) ) 

, ( FORM ( 15 ) , 

C( 1343) ) 

( ELMT ( 1 ) , 

C ( 1 344 ) ) 

, ( ELMT ( 1 5 ) , 

C ( 1358 ) ) 

(LLMT(l), 

C( 1344) ) 

, ( LLMT ( 1 5 ) , 

C ( 1358 ) ) 

( DAT A ( 1 ) , 

C( 1359) ) , 

( DA T A ( 23 ) , 

C( 1381 ) ) 

( MC AT A ( 1 ) , 

C( 1359) ) 

, ( MDAT A ( 23 ) 

, C( 1381 ) ) 

( EN ( 1 ) , 

C ( 1382) ) , 

( EN ( 90 ) , C ( 1471) ) 

( ISYS, 

C( 1472 ) ) , 

(JEAN, 

C( 1473) ) 

( ACX, 

C( 1474) ) , 

( ACF , 

C { 1475 ) ) 

( AMX , 

C( 1476) ) 

t (AMF, 

C( 1477) ) 

( RHOX , 

C( 1478) ) 

, (RHOF, 

C( 1479) ) 


(COEFX(l), C ( 1480 ) ) t ( COEFX ( 20 ) * C(1499)) 

(DX(l), C C 1500 ) J , ( DX ( 20 ) , C C 1519) ) 

(FORMLA(l), C ( 1520 ) ) , ( FORM.L A (18), C ( 1 537 ) ) 

( MML A { I ) , C ( 1 52 0 ) > , ( MML A (18), C ( 1537) ) 


(PRUD(l) , 

C ( 1 538 ) ) , 

( PROD ( 3 ) , 

C( 1540) ) 

( SYS TM ( 1 ) 

, C ( 154 1 ) ) , 

( SYSTM( 15) 

, C ( 1555) ) 

( MTS YS ( 1 ) 

, C( 1541 ) ) , 

(MTSYS( 15) , 

C ( 1555 ) ) 

(OF, 

C( 1556) ) , 

( F PC T , C ( 1 557 ) ) 

(EQRAT, 

C( 1558) ) 



(KODE, C ( 1559 ) ) , (KASE, C ( 1 560 ) ) 

(KONT, 

C( 1561 ) ) , 

(NF , 

C( 1562) ) 

(NO, 

C ( 1 56 3 ) ) , 

(NE, 

C( 1564) ) 

( NOEQ , C ( 1565 ) ) 



( BOX ( 1 ) , 

C( 1771) ) , 

( BCX ( 15 ) , 

C ( 1785 ) ) 

(BOF(l), 

C( 1786) ) , 

(BCF( 15) , 

C( 1800) ) 

(HX, 

C ( 1801 ) ) , 

(HF, 

C( 1802) ) 

(VXPLS, 

C ( 1 80 3 ) ) , 

( VXMIN, 

C( 1804) ) 

( VFPLS, 

C ( 1805 ) ) , 

( VFMIN, 

C( 1806) ) 

( EN LN ( 1 ) 

, 0(1861)), 

(EN LN ( 90 ) , 

C( 1950) ) 

(DEL Nil) 

♦ C ( 195 1 ) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

( HO ( 1 ) , 

C ( 204 1 ) ) , 

( HO ( 90 ) , 

C ( 2 1 30 ) ) 

(S( 1) , 

C ( 213 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

(X( 1 ) , 

C ( 222 1 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

(DELTA! 1 ) 

, C ( 224 1 ) ) , 

( DELT A ( 20 ) , 

C ( 2260 ) ) 

(BC(1), 

C ( 226 1 ) ) , 

( BO ( 1 5 ) , 

C ( 2275 ) ) 

( PC, 

C ( 2276 ) ) , 

(HSUBO, 

C C 2277 ) ) 

( SO, 

C ( 2278 ) ) , 

(T LN, 

0(2279) ) 

(T, 

0(2280) ) , 

( A A Y LN, 

C ( 228 1 ) ) 

( A A Y , 

C ( 2282 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

(HC, 

C ( 2284 ) ) , 

(TC LN, 

C ( 2285 ) ) 

(PCP( 1 ) , 

C ( 2286 ) ) , 

(PCP(25) , 

C (2310 ) ) 

( DATUM ( 1 ) 

, 0(2311)), 

(DATUM! 3) , 

C ( 2 3 1 3 ) ) 

(PC, 

C ( 2314 ) ) , 

(TC, 

C ( 2315 ) ) 

( IPROB, 

0(2316) ) , 

( I F I XT , 

C ( 23 1 7 ) ) 

( IHS, 

0(2318) ) , 

( ICOND, 

C ( 231 9 ) ) 

( I SYM , 

C ( 2320 ) ) , 

( I PROD, 

C ( 232 1 ) ) 

( IOID, 

0(2322) ) , 

( LDRUM , 

C ( 2 32 3 ) ) 

( I DRM , 

C ( 232 3 ) ) , 

(KDRUM, 

C ( 2 324 ) ) 


1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 
1 744 

1745 

1746 

1747 

1748 


34 


EQUIVALENCE 

(L, 

C ( 2 32 5 ) ) , 

(LI, 

C ( 2326 ) ) 

1749 

EQUIVALENCE 

(M, 

C ( 2 32 7 ) ) , 

(Ml, 

C ( 2328 ) ) 

1750 

EQUIVALENCE 

(N, 

C (2329) ) , 

(IC, 

C ( 2330 ) ) 

1751 

EQUIVALENCE 

( 101, 

C ( 233 1 ) ) , 

( IQ2, 

C ( 2332 ) ) 

1752 

EQUIVALENCE 

( IQ3, 

C ( 2333 ) ) , 

( KMAT , 

C (2334 ) ) 

1753 

EQUIVALENCE 

( IMAT, 

C (2335) ) , 

(IUSE, 

C ( 2335 ) ) 

1754 

EQUIVALENCE 

( I ADD , 

C ( 2336 ) ) , 

( ITNUMB, 

C ( 2337 ) ) 

1755 

EQUIVALENCE 

( ITAPE, 

C ( 2338 ) ) , 

(P, 

C ( 2339 ) ) 

1756 

equivalence 

( IDEBUG, 

C ( 2 340 ) ) , 

( IFR02, 

C12341) ) 

1757 

EQUIVALENCE 

( A( 1 ) , 

C ( 2 342 ) ) , 

(A( 1350) , 

C( 3691 ) ) 

1758 

EQUIVALENCE 

(COEFTK 1 ) 

, C ( 3692 ) ) 

, (C0EFT1 ( 1350) , C ( 504 1 ) ) 

1759 

EQUIVALENCE 

( CCEF T2 ( 1 ) 

, C ( 5042 ) ) , 

(C0EFT2! 1350) , C(6391)) 

1760 

EQUIVALENCE 

( COEF T ( 1 ) , 

C ( 6392 ) ) , 

(COEFT( 1350) , C ( 7741 ) ) 

1761 

EQUIVALENCE 

(ATOM( 1 ) , 

C ( 7742 ) ) , 

( ATCM( 303) , 

C ( 8044 ) ) 

1762 

EQUIVALENCE 

(MATOM( 1 ) , 

C ( 7 742 ) ) , 

( MAT OM ( 303 ) 

, C ( 8044 ) ) 

1 763 
1764 

CIMFNS ION 

G( 20,21 ) , 

A( 15,90) , 

EN ( 90 ) , 

EN LN ( 90 ) 

1765 

DIMENSION 

DEL N ( 90 ) , 

HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

1766 

DIMENSION 

DELT A ( 2C ) , 

B0( 15) , 

PCP ( 25 ) , 

PROD ( 3 ) 

1 767 

DIMENSION 

COEFX( 20) , 

DX ( 20 ) , 

FORM( 15) 


1768 

DIMENSION COEFTK 15,90) 

, C0EFT2 ( l 5 

,90) 


1769 

DIMENSION 

ELMT( 15) , 

DA TA ( 23 ) , 

DA rUM ( 3 ) , 

FORML A ( 18) 

1770 

DIMENSION 

BOX ( 15) , 

BOF ( 15) , 

AN S ( 454 ) , 

SYSTM ( 15) 

1771 

DIMENSION LLMT ( l 5 ) , MTSYS ( 1 5 ) , MD A T A ( 23 ) 


1772 

DIMENSION 

ANSL AB ( 454 ) , 

COEFTt 15 

,90) 


1773 

dimension 

MATOM ( 101,3) 

, ATOM (101,3) 


1774 


81 


DIMENSION DRUM { 20 » 2 1 ) 
PIGNO= 377777777777 
I D I 0 = 0 
DETN=0.0 

IF ( I USE ) 8C,80»81 
IUSF 1= IUSE+1 
DO l K= 1 » I USE 
X ( K ) =0 . 0 
1 DELTA(K)=0.0 
ITERA=0 
K APUT= 1 
DSUM 1= 6 I GNC 

SAVE MATRIX IN DRUM 


DO 82 ID=1,IUSE 
D082 JN= 1 , I USE 1 
82 DRUM ( ID, JN)=G( ID, JN) 


BEGIN ELIMINATION OF NNTH VARIABLE 

6 DO 45 NN= 1 , IUSE 
IF { NN-IUSE ) 8,83,8 
83 IF ( G(NN,NN ) ) 3 1 ,23, 31 

SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROW 

8 DC 18 I =NN , IUSE 
J = NN 

I F ( G ( I , J ) ) 99,14,99 
99 COEFX( I ) = 0 .0 
1C J=J+1 

IF(IUSEl-J) 12,84,84 

84 I F C ABSF(G(I,J)) - ABSF ( COEFX ( I ) ) ) 10,100,100 
IOC COEFX ( I ) = AfiSF ( G ( I , J ) ) 

GO TO 10 

12 COEFX ( I ) = ABSF (COEFX! I )/G( I ,NN) ) 

GO TO 18 

14 COCFX ( 1 )=BIGNO 

18 CONTINUE 

19 TEMP=B IGNO 

1=0 

20 DO 22 J = NN , IUSE 

IF (COEFX ( Jl-TEMP) 87,22,22 
87 TEMP=COEFX ( J ) 

I=J 

22 CONTINUE 

I F ( I ) 28,23,28 

23 IDID=NN-1 
GO TO 80 


1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 
1316 

1817 

1818 

1819 

1820 
1821 
1822 
1823 
1324 
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1825 


INDEX I LOCATES EQUATICN TO BE USED FOR ELIMINATING THE NTh 

1826 


VARIABLE FROM THE REMAINING EQUATIONS 

1 32 7 



1828 


INTERCHANGE EQUATIONS I AND NN 

1829 



1 8 30 

28 

IF(NN-I) 29,31,29 

1831 

29 

DO 30 J = NN , IUSE1 

1 ? 32 


Z=G ( I , J ) 

1833 


G ( I , J)=G(NN, J) 

18 34 

30 

GINN, J )=Z 

1835 



18 36 


DIVIDE NTH ROW BY NTH DIAGONAL ELEMENT AND ELIMINATE THE NTH 

1837 


VARIABLE FROM THE REMAINING EQUATIONS 

1838 



1939 

31 

K = NN ♦ 1 

1840 


DO 36 J = K, I USE 1 

1841 


I F ( G I NN, NN ) ) 36, 23, 36 

1842 

36 

G { NN , J ) = G ( NN , J ) / G ( NN, NN ) 

1 943 


I F ( K- I USE 1 ) 88,45,88 

1 944 

88 

DO 44 I = K , I USE 

1845 

40 

DO 44 J = K, I USE 1 

1846 


G(I,J) = G ( I , J ) - G I I , NN ) *G I NN , J ) 

1847 

44 

CONTINUE 

1948 

45 

CONTINUE 

1849 



1850 


BACKSOLVE FOR THE VARIABLES 

1851 



1352 

991 

IDID = IUSE 

1353 


K = IUSE 

1854 

47 

J = K + 1 

1855 


SUM = c. 

1 856 


IFI IUSE - J ) 51,48,48 

1857 

48 

DO 50 I = J , I USE 

1858 

5C 

SUM = SUM ♦ G(K, I )*0X( I ) 

1859 

51 

DX(K) = G ( K , IUSE 1 ) - SUM 

1860 


X ( K ) * X ( K ) + DX(K) 

1861 


K = K - 1 

1862 


IF (K) 47,151,47 

1863 

151 

DO 90 ID = 1, IUSE 

1864 


DO 90 JD = 1, I USE 1 

1365 

9C 

G( ID, JD) = DRUM! ID, JD) 

1866 



1867 


CALCULATE RESIDUALS (DELTA RIGHT HAND SIDE) 

1868 



1869 

52 

CSUM = 0. 

1370 


DO 62 I = 1, IUSE 

1871 


SUM = 0. 

1872 


DC 56 J = 1, IUSE 

1873 

56 

SUM = SUM + G ( I , J ) *X I J ) 

1874 


DELTA ( I ) = G ( I , IUSE1 ) - SUM 

1875 


IFI ABSFIGI I, IUSE1 ) ) - 1.0) 62, 62, 60 

1876 

60 

DELTA! I ) = DEL T A I I ) / G I I , I USE 1 ) 

1877 

62 

DSUM = ABSFIDELTAI I ) ) + DSUM 

1878 


GO TO I 66 , 8C ) , KAPUT 

1879 

66 

I F I DSUM - DSUM 1 ) 74,80,68 

I 880 

68 

KAPUT = 2 

1881 


DO 72 K = 1, IUSE 

1882 

72 

X I K ) = X ( K ) - DXIK) 

1883 


GO TO 52 

1884 

74 

DSUM1 = DSLM 

1885 


ITERA = ITERA + 1 

1886 


IFI ITERA - 4) 92,80,92 

1887 

92 

DO 78 I = 1, IUSE 

1888 


IF ( ABSFIGI I , IUSE 1 ) ) - 1.0) 75,75,76 

1889 

75 

G I I , IUSE1 ) = CELTAI I ) 

189C 


GO TO 78 

1991 

76 

G I I , I USE 1 ) = DEL T A I I ) * G ( 1 » I USE 1 ) 

1892 

78 

CCNTINUF 

1893 


GO TO 6 

1894 

80 

RETURN 

1895 
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SUBROUTINE MATRIX 
COMMON C 

EQUIVALENCE (G(l), 

C(I) ) , 

( G ( 420 ) , 

C ( 420 ) ) 

1896 

1897 

1898 

1899 

1900 

EQUIVALENCE 

(ANSI 1) , 

C ( 42 1 ) ) , ( AN S ( 454 ) , 

C ( 874 ) ) 

1901 

EQUIVALENCE 

(HSUM, 

C ( 424 ) ) , 

(SSUM, 

C ( 425 ) ) 

1902 

EQUIVALENCE 

(WTMOL, 

C ( 426 ) ) , 

(CP, 

C C 427 ) ) 

1903 

EQUIVALENCE 

(DLMPT, 

C ( 42 8 ) ) , 

(DLMTP, 

C ( 429 ) ) 

1904 

EQUIVALENCE 

(GAMMA , 

C ( 4 30 ) ) , 

(ARATIO, 

C ( 431 ) ) 

1905 

EQUIVALENCE 

{ VMACH, 

C t 4 32 ) ) , 

(SP IMP, 

CC433) ) 

1906 

EQUIVALENCE 

( VAC I , 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

1907 

EQUIVALENCE 

( RHO I » 

C ( 4 3 7 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

1908 

EQUIVALENCE 

EQUIVALENCE 

(RHO, 
(T PI, 

C ( 439 ) ) 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

1909 

1910 

EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI, 

C ( 443 ) ) 

1911 

EQUIVALENCE 

EQUIVALENCE 

(T ETA, 
(ETA I, 

C ( 44 5 ) ) 

C ( 446 ) ) , 

(EP ETA, 

C ( 44 7 ) ) 

1912 

1913 

equivalence 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C ( 450 ) ) 

1914 

EQUIVALENCE 

(SIG I, 

C ( 45 I ) ) , 

(EP SIG, 

C ( 452 ) ) 

1915 

EQUIVALENCE 

EQUIVALENCE 

(AW SIG, 

( ANSL AB ( 1 ) 

C ( 453 ) ) 

, C ( 875 ) ) , 

( ANSLAB (454 ) 

, C ( 1328) ) 

1916 

1917 

EQUIVALENCE 

( FORM ( 1 ) , 

C( 1329) ) , 

( FORM ( 15) , 

C( 1343) ) 

1918 

EQUIVALENCE 

( ELMT ( 1 ) , 

C( 1344) ) , 

(ELMT ( 15) , 

C( 1358) ) 

1919 

EQUIVALENCE 

( LLMT ( 1 ) , 

C ( 1344 ) ) , 

( LLMT ( 15 ) , 

C ( 1358 ) ) 

1920 

EQUIVALENCE 

( DAT A ( I ) , 

C( 1359) ) , 

( D AT A ( 23 ) , 

C( 1381 ) ) 

1921 

EQUIVALENCE 

( MDAT A ( 1 ) , 

C ( 1359) ) , 

{ MDAT A ( 2 3 ) 

, C ( 1 38 1 ) ) 

1922 

equivalence 

( EN ( I ) , 

C( 1382) ) , 

( EN ( 90 ) , C ( 1 4 7 1 ) ) 

1923 

EQUIVALENCE 

( ISYS, 

C( 1472) ) , 

( JEAN, 

C( 1473) ) 

1924 

EQUIVALENCE 

(ACX, 

C ( 1474 ) ) , 

( ACF, 

C ( 1475 ) ) 

1925 

EQUIVALENCE 

( AMX , 

C ( 1476 ) ) , 

( AMF , 

C( 1477) ) 

1926 

EQUIVALENCE 

( RHOX , 

C( 1478) ) , 

(RHOF , 

C( 1479) ) 

1927 

equivalence 

( COEFX ( I ) , 

C ( 1480 ) ) # ( COEFX ( 20 ) , C « 1499 ) ) 

1928 

EQUIVALENCE 

( D X ( 1 ) , 

C ( 1500 ) ) , 

( DX ( 20 ) , 

C( 1519) ) 

1929 

EQUIVALENCE 

{ FORML A ( 1) 

, CC152C)) 

, ( FORML A ( 18 ) , C ( 1537) ) 

1930 

EQUIVALENCE 

( MML A ( 1 ) , 

C ( 1520 ) ) , 

( MML A ( 18) , 

C ( 1 537 ) ) 

1931 

EQUIVALENCE 

( PROD ( I ) , 

C (1538) ) , 

( P ROD ( 3 ) , 

C( 1540) ) 

1932 

EQUIVALENCE 

(SYSTEM I), 

C( 1541 ) ) , 

( SYSTM( 15) 

, C ( 1555 ) ) 

1933 

EQUIVALENCE 

( MTSYS ( 1 ) , 

C( 1541) ) , 

(MTSYS( 15) , 

C ( 1555) ) 

1934 

equivalence 

(OF, C ( 1556) ) , 

(FPCT, C ( 1 55 7 ) ) 

1935 

EQUIVALENCE 

EQUIVALENCE 

(EORAT, C ( 1558) ) 

(KODE, C ( 1559) ) , (KASE, C(I560)) 

1936 

1937 

EQUIVALENCE 

(KONT, C ( 1 56 I ) ) , 

(NF, 

C( 1562) ) 

1938 

EQUIVALENCE 

(NO, 

C( 1563) ) , 

(NE, 

C( 1564) ) 

1939 

EQUIVALENCE 

EQUIVALENCE 

(NOEQ, C ( 1 565 ) ) 

( PCX ( I ) , C(177D), 

( BOX ( 1 5 ) , 

CC 1785) ) 

1940 

1941 

EQUIVALENCE 

( BCF ( 1 ) , 

C( 1786) ) , 

( BOF ( 15) , 

C( 1800) ) 

1942 

EQUIVALENCE 

(HX, 

C ( 1801) ) , 

(HF, 

C ( 1 802 ) ) 

1943 

EQUIVALENCE 

( VXPLS, 

C( 1803) ) , 

( VXMIN, 

C( 1804) ) 

1944 

EQUIVALENCE 

(VFPLS, 

C ( 1 805 ) ) , 

( VFMIN, 

C( 1806) ) 

1945 

EQUIVALENCE 

(EN LN ( I ) , 

C ( 1861) ) , 

(EN LN ( 90 ) , 

C( 1950) ) 

1946 

EQUIVALENCE 

(DEL Nil), 

C( 1951 ) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

1947 

EQUIVALENCE 

(HOI 1 ) , 

C ( 204 l ) ) , 

( HC ( 90 ) , 

C ( 2 130 ) ) 

1948 

EQUIVALENCE 

(S(l), 

C ( 2 1 3 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

1949 

EQUIVALENCE 

(X( 1) , 

C ( 2221 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

1950 

equivalence 

(DELTA! 1 ), 

C12241 ) ) , 

( DELT A ( 20 ) , 

C ( 2260 ) ) 

1951 

equivalence 

( BC ( 1 ) , 

C ( 2261 ) ) , 

{ BC ( 15 ) , 

C ( 2275 ) ) 

1952 

equivalence 

(PC, 

C ( 2276 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

1953 

equivalence 

(SO, 

C1227H) ) , 

(T LN, 

C { 2279 ) ) 

1954 

equivalence 

(T, 

C ( 2280 ) ) , 

( A A Y LN, 

C ( 2281 ) ) 

1955 

EQUIVALENCE 

( A A Y , 

C ( 2282 ) ) , 

(CPSUM, 

C( 2283) ) 

1956 

EQUIVALENCE 

(HC, 

C ( 2284 ) ) , 

( TC LN, 

C ( 2285 ) ) 

1957 

EQUIVALENCE 

(PCP( 1) , 

C( 2286) ) , 

( PCP ( 2 5 ) , 

C ( 2310 ) ) 

1958 

EQUIVALENCE 

(DATUM! 1 ) , 

C ( 231 1 ) ) , 

( DATUM ( 3 ) , 

C ( 231 3 ) ) 

1959 

EQUIVALENCE 

(PC, 

C ( 2314 ) ) , 

(TC, 

C ( 231 5 ) ) 

1960 

EQUIVALENCE 

( IPROR, 

C ( 23 1 6 ) ) , 

( I F I XT , 

C ( 2317 ) ) 

1961 

EQUIVALENCE 

( IHS, 

C( 2318) ) , 

(ICOND, 

C ( 231 9 ) ) 

1962 

EQUIVALENCE 

( ISYM, 

C ( 2320 ) ) , 

( IPROD, 

C ( 232 1 ) ) 

1963 

equivalence 

( I D ID , 

C ( 2322 ) ) , 

( LDRUM , 

C ( 232 3 ) ) 

1964 

EQUIVALENCE 

( IDRM, 

C ( 2323 ) ) , 

( KURUM , 

C ( 2324 ) ) 

1965 

EQUIVALENCE 

(L, 

C ( 2325 ) ) , 

(LI, 

C ( 2326 ) ) 

1966 

equivalence 

( M , 

C ( 232 7 ) ) , 

(Ml, 

C ( 2328 ) ) 

1967 

EQUIVALENCE 

(N, 

C ( 2329 ) ) , 

( IQ, 

CI2330) ) 

1968 

EQUIVALENCE 

( I Q 1 , 

C ( 233 1 ) ) , 

( IC2, 

CI2332) ) 

1969 

EQUIVALENCE 

(103, 

C( 2333) ) , 

( KM A T , 

C ( 2334 ) ) 

1970 

equivalence 

( I MAT, 

C ( 2 335 ) ) , 

( I USE , 

C ( 2335 ) ) 

1971 
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equivalence 

( iadd, 

C ( 2336 ) ) , 

( I TNUMB, 

C { 2 337 ) ) 

equivalence 

( ITAPE, 

C ( 2338 ) ) , 

(P, 

C ( 2339 ) ) 

equivalence 

( IDEBUG, 

C ( 23A0 ) ) , 

( IFROZ, 

C ( 2341 ) ) 

equivalence 

( A( 1 ) , 

C(23A 2) ) , 

( A( 1350 ) , 

C ( 3691 ) ) 

equivalence 

(COEFTl(l) 

, C ( 3692 ) ) 

, ( C0EFT1 ( 1350 ) , C ( 50A 1 

equivalence 

( CGEFT2 ( 1 ) 

, C ( 50A 2 ) ) , 

(C0EFT2 ( 1350 ) , C(6391) 

equivalence 

( COEF T ( 1 ) , 

C ( 6392 ) ) , 

( COEF T ( 1350 ) , C ( 77A 1 ) 

equivalence 

( ATOM ( 1 ) , 

C( 77A2) ) , 

( ATOM ( 3C3 ) , 

C (8044) ) 

equivalence 

( MATOM ( 1 ) , 

C ( 77A2 ) ) , 

( MA TOM ( 303 ) 

, C ( 8044 ) ) 

dimension 

G( 20,21), 

A( 15,90) , 

EN ( 90 ) , 

EN LN ( 90 ) 

dimension 

DEL N ( 90 ) , 

HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

dimens ion 

DEL T A ( 20 ) , 

ao( 15 ) , 

PC P ( 25 ) , 

PRCD ( 3 ) 

dimension 

C0EFX12C) , 

DX ( 20 ) , 

FORM ( 1 5 ) 


DIMENSION C0EFT1 { 15,90) 

, COEF T 2(15 

,90) 


dimension 

ELMT( 15) , 

DA T A ( 23 ) , 

D A TUM ( 3 ) , 

FORMLA( 18) 

DIMENSION 

B0X( 15) , 

BOF( 15) , 

ANS ( 45 A ) , 

SYSTM( 15) 

DIMENSION LLMT( 15) ,MTSYS 

( 15) , MD AT A ( 2 3 ) 


dimension 

ANSL AB ( A5A ) , 

COEFK 15 

,90) 


dimension 

MATOM ( 101,3) 

* ATOM (101,3) 


determine which matrix I 

S TO BE SET 

UP 


SENSE LIGHT 

L IGHT 

ON 

LIGHT OFF 


COMBUST I CN TYPE 
ASSIGNED TEMPERATURE 
NOT CONVERGED 


EXPANSION TYPE 
UNASSIGNED TEMPERATURE 
CONVERGED 


IQ1= IQ 1 


I Q2= I 02 


IQ3=IQ3 


IF (SENSE L 

IGHT 

SENSE 

LIGHT 

2 

IF (SENSE L 

IGHT 

SENSE 

LIGHT 

4 

IFIXT 

= 1 


I$YM= 

IQ1 


GC TO 

10 


IFIXT 

= 2 


I HS= 1 



I$YM = 

1 02 


GO TO 

10 


IFIXT 

= 2 



4 

IF (SENSE LIGHT 1) 5,6 

5 SENSE LIGHT I 
I HS= 1 

I S YM= 102 
GO TO 10 

6 IF (SENSE LIGHT A) 7, 8 

7 SENSE LIGHT A 
IHS = 2 

I S YM= 101 
GO TO 10 

8 I H S= 1 

I S YM= I C2 

CLEAR MATRIX STORAGES TO ZERO 

IC DO 212 1=1, 102 
DO 211 K= 1 , I Q3 
G ( I , K ) = C.C 

211 CONTINUE 

212 CONTINUE 
I CONU= 1 


213 


14 


2 1 A 


1972 

1973 
1 97A 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 
1 98 A 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 
199A 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 
2003 
200A 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 
2013 
20 1 A 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 
2023 
202A 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 
203A 
2035 


IF (L-1Q) 14,213,14 

2036 

IC0NC=2 

2037 


2038 

BEGIN SET UP OF ITERATION MATRIX 

2039 


2040 

DO 65 J= 1 , M 

2041 

CALL BYPASS (J,l) 

2042 

IF ( I PROD— 2 ) 65,214,65 

2043 

IF ( EN ( J ) ) 65,65,12 

2044 


2045 

CALCULATE THE ELEMENTS R(I,K) 

2046 


2047 


12 DC 20 1=1, L 2048 

IF ( A ( I , J ) ) 13,20,13 2049 

13 TEKM = A(I,J)*EN(J) 2050 

DO 15 K= I , L 2051 

G ( I , K ) = G ( I , K ) + A(K,J)*TERM 2C52 

15 CONTINUE 2053 

C 2054 

C COMPLETE COLUMN A FOR THE GAS MOLECULE 2055 

C 20 56 

G( 1,101) =G ( I, 101J+TERM 2057 

20 CONTINUE 2058 

G( IQ1, 101)= G( 101, IQ1)+EN( J) 1059 

C 2060 

C STATEMENT 24 IS FOR FIXED T, 30 IS FOR VARIABLE T AND CONVERGED 2061 

C FIXED T 2062 

C 2063 

21 IF ( I F I XT — 2 ) 24,30,30 2064 

C 2065 

C FOR ASSIGNED T BYPASS ENERGY ROW AND T COLUMN WHILE ITERATING 2066 

C 2067 

24 TERM = (HC(J)-S(J) ) *EN ( J ) 2068 

DC 25 1=1, L 2069 

G( I • IQ2)=G( I, IQ2)+A< I , J ) «TERM 2 070 

25 CONTINUE 2071 

G( 101, 102 ) =G( 101, IQ2)+TERM 2072 

GO TO 65 20 f 3 

C 2074 

C FILL IN TEMPERATURE COLUMN AND RIGHT HAND SIDE 2075 

C 2076 

30 TERM=HC ( J ) *EN ( J ) 2077 

DC 35 1=1, L 2078 

G ( I , I 02 ) = G( I, IQ2)+A( I,J)*TERM 2079 

35 CONTINUE 2080 

G( 101, 102)= G( 101, IQ2J+TERM 2081 

TERM1=(H0( J ) -S ( J) )*EN( J) 2082 

DO 40 1=1, L 2083 

GC I , 103 )= G(I , I03)+A( I ,J)*TERM1 2084 

4C CONTINUE 2085 

G( 101, IQ3)=G( 101, I03I+TERM1 2086 

C 2087 

C STATEMENT 50 IS FOR ENTHALPY , 55 IS FCR ENTROPY EOUATION 2088 

C 2089 

45 IF (IHS-2) 50,55,55 2090 

50 G( 102, IQ2)=G< I 02, I 02 ) +H0 ( J ) *TERM 2091 

G( 102, 103 ) =G ( 102, 103 ) + H0 ( J ) * TER Ml 2^92 

GC TO 65 2093 

C 2094 

C DURING EXPANSION THE ENTROPY ROW IS FILLED IN 2095 

C 2096 

55 TERM=S(J)*EN( J) 2097 

DO 60 K= 1 , L 2098 

6C G ( 102 , K ) = C-( 102, K )+A(K, J )*TERM 2099 

CONTINUE 21-0 

G( 102, 101 )=G( 102, IOD+TERM 21C1 

G( 102, I02)=G( 102, IQ2)+H0( J)*TERM 2102 

G( 1 02, I03)=G( 102, 103) + (HOI J)-S( J) ) * TERM 2103 

65 CONTINUE 2104 

C 2105 

C AT THIS POINT PROCESSING OF GASEOUS PRODUCTS HAS BEEN COMPLETED 21C6 

C AND CONDENSED PHASE PROCESSING IS BEGUN 2107 

C 2108 

C STATEMENT 70 IS FOR CONDENSED PRODUCTS, 101 IS FOR NO CONDENSED 2109 

C 2110 

66 IF (ICOND-2) 70,101,101 2111 

7C K=L 1 2112 

DO 100 J= M 1 , N 2113 

CALL BYPASS (J,l) 2114 

IF ( I PROD-2 ) 100,74, IOC 2115 

74 DO 75 1=1, L 2116 

G( I , K ) =A { I , J) 2117 

75 CONTINUE 2118 

C 2119 

C STATEMENT 80 IS FOR FIXED T, 85 IS FOR VARIABLE T AND CONVERGED 2120 

C FIXED T 2121 

C 2122 

IF ( I F I XT-2 ) 80,85,85 2123 

8C G ( K , 102 ) = HOIJ)-S(J) 2124 


39 


GO TO 95 

05 G ( K * 102)= HO ( J ) 

G(K, 103)= H0{ J )-S( J ) 

C 

STATEMENT 95 IS FOR ENTHALPY, STATEMENT 90 IS FOR ENTROPY EQUATION 

IF (IHS-?) 95,90,90 
90 G ( 102 , K ) = S ( J ) 

95 K= K+l 
IOC CONTINUE 
C 

C REFLECT SYMMETRIC PORTIONS OF THE MATRIX BEFCRC COMPLETING THE 

C CONDENSED PHASE CONTRIBUTIONS TO THE MATRIX 

C 

101 CO IGA 1=1, ISYM 
DO 102 J = I , I SYM 
G( J, I )=G( I , J ) 

102 CONTINUE 
1 0 A CONTINUE 

C 

C THE ADDRESS OF THE NEXT INSTRUCTION IF SET DURING INITIALIZATION 

STATEMENT 105 IS FOR CONDENSED, 130 IS FOR NO CONDENSED 

IF (ICOND-2) 1C5, 130,130 
C 

C COMPLETE COLUMN A OF MATRIX 

C 

105 DO 125 J = M 1 , N 
CALL BYPASS (J,l) 

IF ( I PROD— 2 ) 125,106,125 

106 DO 107 1=1, L 

G( I, 1 0 1 ) = G ( I, I Q 1 ) +A ( I , J ) *EN ( J ) 

1 07 CONTINUE 

IF (IFIXT-2) 125,109,109 
109 IF (IHS-2) 110,115,115 
11C G ( IG2 , IQ 1 ) = G( IQ2, IQ1 )+H0( J)*EN ( J) 

GO TO 125 

115 G( 102, 101)= G( I02,IQ1)+S(J)*EN(J) 

125 CONTINUE 

130 GO TO ( 131,133) , IFIXT 

131 KMAT=IC2 
GO TO 136 

133 KMAT=IU3 
136 IMAT = KMAT— 1 
C 

C COMPLETE THE RIGHT HAND SIDE 

C 

DO 1A5 I = 1 , IMAT 
G ( I,KMAT)=G( I ,KMAT)-G( I, 101 ) 
l A 5 CONTINUE 

DO 150 1=1, L 

G(I,KMAT)= G(I,KMAT)+ AA Y*BO ( I ) 

15C CONTINUE 

P= GCK1,IC1) 

160 G(I01,KMAT) = G ( 101, KM AT ) + PO 
G ( 101, 101 )=0.C 
C 

C COMPLETE ENERGY ROW AND TEMPERATURE COLUMN 

C 

IF (KMAT-I02) 165,185,165 

165 IF (IHS-2) 166,168,168 

166 ENERGY=AAY» (HSUBO/T ) 

GO TO 169 

168 ENERGY= AAY»SO+PC-P 

169 G( 102, I03)=G( 102, 103)+ ENERGY 
G ( 102 , 102 ) = G( 102, IQ2)+CPSUM 

185 RETURN 


2125 

2126 
2127 
2126 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 
2 1 AO 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 


noon 


SUBROUTINE C0RE3 

FROZEN COMPOSITION EXPANSION 

COMMON C 

ECU I V ALENC E (G(I), C(l)), 

( G (420 ) , 

C ( 420 ) ) 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

EQUIVALENCE 

(ANSI 1 ) * 

C ( 42 1 ) ) , ( ANS ( 454 ) , 

C ( 874 ) ) 

2199 

equivalence 

(HSUM, 

C ( 424 ) ) , 

( S SUM y 

C ( 425 ) ) 

2200 

equivalence 

(WTMOL, 

C ( 426 ) ) , 

(CP, 

C ( 4? 7 ) ) 

2201 

EQUIVALENCE 

(DLMPT, 

C ( 428 ) ) , 

(DLMTP, 

C ( 429 ) ) 

2202 

equivalence 

(GAMMA, 

C ( 4 30 ) ) , 

( ARATIO, 

C ( 4 31 ) ) 

2203 

EQUIVALENCE 

( VMACH , 

C ( 432 ) ) , 

(SP IMP, 

C ( 433 ) ) 

2204 

EQUIVALENCE 

(VACI, 

C ( 434 ) ) , 

(CF, 

C ( 436 ) ) 

2205 

EQUIVALENCE 

( RHO I , 

C ( 437 ) ) , 

(RHOVAC, 

C ( 438 ) ) 

2206 

EQUIVALENCE 

EQUIVALENCE 

(RHO, 
(T PI, 

C(439) ) 

C ( 440 ) ) , 

(PI I, 

C ( 441 ) ) 

2207 

2208 

EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI , 

C ( 443 ) ) 

2209 

EQUIVALENCE 

EQUIVALENCE 

(T ETA, 
(ETA I» 

C ( 445 ) ) 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

2210 

2211 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C ( 450 ) ) 

2212 

EQUIVALENCE 

(SIG I 9 

C ( 4 51 ) ) , 

(EP SIG, 

C ( 452 ) ) 

2213 

EQUIVALENCE 

EQUIVALENCE 

(AW SIG, 

( ANSL AB ( 1) 

C ( 4 53 ) ) 

, C ( 875 ) ) , 

( ANSLAB (454 ) 

, C ( 1328 ) ) 

2214 

2215 

EQUIVALENCE 

( FORM ( 1 ) » 

C( 1329) ) , 

(FORM( 15) , 

C ( 1343 ) ) 

2216 

EQUIVALENCE 

tELMT ( 1 ) , 

Cl 1344) ) , 

IELMT l 15) , 

Cl 1358) ) 

2217 

EQUIVALENCE 

(LLMT(I), 

C ( 1344 ) ) , 

( LLMT (15) , 

C ( 1358 ) ) 

2218 

EQUIVALENCE 

( DAT A ( I ) , 

C ( 1 359 ) ) , 

( D AT A ( 23 ) , 

C( 1381 ) ) 

2219 

EQUIVALENCE 

( MOAT A ( 1 ) , 

C( 1359) ) , 

( MDAT A ( 2 3 ) 

, C( 1381) ) 

2220 

EQUIVALENCE 

( EN ( I ) , 

C ( 1382) ) , 

( EN ( 90 ) , C ( 1471 ) ) 

2221 

EQUIVALENCE 

( ISYS, 

C ( 1472 ) ) , 

( JEAN, 

C ( 1473 ) ) 

2222 

EQUIVALENCE 

( ACX , 

C( 1474 ) ) , 

( ACF , 

C( 1475) ) 

2223 

EQUIVALENCE 

( AMX, 

C( 1476) ) , 

( AMF , 

C( 1477) ) 

2224 

EQUIVALENCE 

( RHOX » 

C( 1478) ) , 

(RHOF , 

C ( 1479 ) ) 

2225 

EQUIVALENCE 

( COFF X ( 1 ) , 

C ( 1 48C ) ) , ( COEFX ( 2 

C), C ( 1 499 ) ) 

2226 

EQUIVALENCE 

( DX ( I ) , 

C( 1500 ) ) , 

( 0 X ( 2 0 ) , 

C( 1519) ) 

2227 

EQUIVALENCE 

( FCRML A ( 1) 

, C ( 15 20 ) 

, ( FORMLA ( 13 ) , C ( 1 537 ) ) 

2228 

EQUIVALENCE 

( MML A ( 1 ) , 

C ( 1 52 0 ) ) , 

(MMLA( 13) , 

C ( 1537 ) ) 

2229 

EQUIVALENCE 

(PRODll) , 

C( 1538 ) ) , 

( PROD ( 3) , 

C( 1540) ) 

2230 

EQUIVALENCE 

( SYSTMt 1 ) , 

C ( 1 54 1 ) ) , 

( SYSTM( 15) 

, C ( 1 555 ) ) 

2231 

equivalence 

( MTSYS ( 1 ) , 

C( 1541 ) ) , 

(MTSYSt 15 ) , 

C( 1555) ) 

2232 

EQUIVALENCE 

(OF, C ( 1556 ) ) » 

(FPCT, C ( 1 557 ) ) 

2233 

EQUIVALENCE 

EQUIVALENCE 

(EORAT, C ( 1 55 8 ) ) 

(KODE, C ( 1559) ) , (KASE, C(1560)) 

2234 

2235 

EQUIVALENCE 

(KONT, C ( 1561 ) ) » 

(NF, 

C ( 1562 ) ) 

2236 

EQUIVALENCE 

(NO, 

C ( 1 56 3 ) ) , 

(NE, 

C( 1564) ) 

2237 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

( NOEQ * C ( 1 565 ) ) 

( NOFROZ , C ( 1 566 ) ) 
(BCX(l), C(1771)), 

(BGX( 15) , 

C( 1785) ) 

2238 

2239 

2240 

equivalence 

(BOF(l), 

C( 1786) ) , 

C BOF « 15) , 

C( 1800) ) 

2241 

EQUIVALENCE 

(HX, 

C( 1801) ) , 

(HF, 

C( 1802) ) 

2242 

EQUIVALENCE 

( VXPLS, 

C ( 1 80 3 ) ) , 

(VXMIN, 

C( 1804) ) 

2243 

EQUIVALENCE 

( VFPLS, 

C( 1805) ) , 

( VFMIN, 

C( 1806) ) 

2244 

EQUIVALENCE 

( EN LN( 1 ) , 

C ( 1 86 1 ) ) , 

(EN LN ( 90 ) , 

C( 1950) ) 

2245 

equivalence 

(DEL N ( 1 ) , 

C ( 195 1 ) ) , 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

2246 

EQUIVALENCE 

( HO ( 1 ) , 

C ( 204 1 ) ) , 

( HO ( 90 ) , 

C ( 2 1 30 ) ) 

2247 

EQUIVALENCE 

(SCI) , 

C ( 2 13 1 ) ) , 

( S l 90 ) , 

C ( 2220 ) ) 

2248 

equivalence 

(X( 1) , 

C ( 222 I ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

2249 

EQUIVALENCE 

(DELTA! 1 ) , 

C ( 224 1 ) ) , 

( DELTA (20) , 

C ( 2260 ) ) 

2250 

EQUIVALENCE 

(80(1), 

C ( 226 1 ) ) , 

(B0(15), 

C12275) ) 

2251 

equivalence 

(PC, 

C ( 227 6 ) ) , 

(HSUBO, 

C ( 2277 ) ) 

2252 

equivalence 

( SO, 

C ( 227 8 ) ) , 

(T LN, 

C ( 2279 ) ) 

2253 

equivalence 

(T, 

C ( 2280 ) ) , 

(AAY LN, 

C ( 2 2 3 1 ) ) 

2254 

equivalence 

( AAY, 

C ( 228 2 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

2255 

equivalence 

(HC, 

C( 228 4)1 , 

(TC LN, 

C ( 2285 ) ) 

2256 

EQUIVALENCE 

(PCP(l), 

C ( 228 6 ) ) , 

( PCP ( 2 5 ) , 

C ( 2 3 1 0 ) ) 

2257 

equivalence 

( DATUM ( 1 ) , 

C ( 2 31 1 ) ) , 

( DATUM ( 3 ) , 

C ( 23 I 3 ) ) 

2258 

EQUIVALENCE 

(PC, 

C ( 2 31 4 ) ) , 

(TC, 

C ( 2 31 5 ) ) 

2259 

EQUIVALENCE 

( IPROB, 

C12316) ) , 

( IFIXT, 

C ( 2317 ) ) 

2260 

EQUIVALENCE 

( IHS, 

C ( 2 31 8 ) ) , 

( ICOND, 

C ( 23 1 9 ) ) 

2261 

EQUIVALENCE 

( ISYM, 

C ( 232 0 ) ) , 

( I PROD, 

C ( 232 1 ) ) 

2262 

EQUIVALENCE 

( IDID, 

C12322) ) , 

ILDRUM, 

C l 2323 ) ) 

2263 

EQUIVALENCE 

( I DRM , 

C ( 2 32 3 ) ) , 

(KDRUM, 

C ( 2324 ) ) 

2264 

EQUIVALENCE 

(L, 

C ( 2 32 5 ) ) , 

(LI, 

C ( 2 326 ) ) 

2265 

EQUIVALENCE 

(M, 

C ( 2 32 7 ) ) , 

(Mi, 

C ( 2328 ) ) 

2266 

EQUIVALENCE 

(N, 

C ( 232 9 ) ) , 

( IQ, 

C ( 2330 ) ) 

2267 


non 


EQUIVALENCE 

( IQ1 , 

C ( 233 1 ) ] 

1, ( IQ2 ♦ 

C ( 2332 ) ) 

equivalence 

( IQ3, 

C ( 2333 ) ] 

1, ( KMAT , 

C ( 23 34 ) ) 

EQUIVALENCE 

( imat , 

C ( 2335 ) 1 

1, ( I USE , 

C ( 2335 ) ) 

EQUIVALENCE 

( I ADD , 

C ( 2336 ) ! 

I, (ITNUMB, 

C ( 23 37 ) ) 

EQUIVALENCE 

( ITAPE, 

C (2338 ) 1 

1 , (P , 

C ( 2339 ) ) 

EQUIVALENCE 

( IDEBUG, 

C ( 2340 ) ] 

l« ( I FROZ , 

C (2341 ) ) 

EQUIVALENCE 

( A ( 1 ) , 

C ( 2 342 ) ] 

1* ( A ( 1350) 

* C ( 3691 ) ) 

EQUIVALENCE 

(C0EFT1 ( 1 

), C ( 3692 ] 

1), ( COEFT 1 ( 

1350) , C( 5041 

EQUIVALENCE 

( C0EFT2 ( 1 

) , C ( 5042 ) ] 

1, ( C0EFT2 ( 1 

350), C ( 6391 ) 

EQUIVALENCE 

( COEFT ( 1 ) 

, C ( 6392 ) ] 

1, ( COEFT ( 1 

350) , C ( 7741 ) 

equivalence 

( ATOM ( 1 ) , 

C ( 7742 ) ) i 

> ( ATOM (303) 

, C( 8044) ) 

EQUIVALENCE 

( MATOM ( 1 ) 

, C ( 7742 ) ) 

it ( MATOM ( 303 ) , C(8044)) 

DIMENSION 

G ( 20 , 21 ) , 

A( 15,90) , 

EN ( 90 ) , 

EN LN ( 90 ) 

DIMENSION 

DEL N ( 90 ) , 

HO ( 90 ) , 

S ( 90 ) , 

X ( 20 ) 

DIMENSION 

DELTA ( 20 ) , 

B0( 15) , 

PCP ( 25 ) , 

PROD ( 3 ) 

DIMENSION 

COEFX( 20) , 

DX( 20) , 

FORM( 15 ) 


DIMENSION C0EFT1 ( 15,90) 

, COEFT 2(15,90) 


DIMENSION 

ELMT( 15 ) , 

DAT A ( 23 ) , 

DATUM ( 3 ) , 

FORMLA ( 18 ) 

DIMENSION 

BOX (15) , 

BOF ( 1 5 ) , 

ANS ( 454 ) , 

SYSTM( 15) 

DIMENSION LLMT (15) ,MTSYS(15) ,MDATA ( 23 ) 


DIMENSION 

ANSLAB ( 454 ) 

, COEFT (15,90) 


DIMENSION 

MATOM( 101 ,3 ) , ATOM ( 101,3) 


NO FROZ = 





MISSED-0 





DO 1004 J = 

1 ,454 





100 ANS(J) = ANSLAB(J) 

I ADD= 1 
I TROT = 3 
ALPHA=0. 

DO 7 J= 1 ,N 

EN( J)=ANS(4*J+34) 

IF ( EN { J ) ) 6*6*15 
1 IF (J-M) 5*5*7 

EN LN(J)=LOGF(EN(J) ) 

ALPHA=ALPHA+FN(J) 

GO TO 7 
EN LN ( J ) =0 • 0 
EN ( J ) =0 • 

CONTINUE 

wtmolf=alpha*wtmol 

PC=ANS ( 2 ) 

T LN=LOGF ( ANS ( 3 ) ) 

HC=ANS(4)/1. 98726 

S0= ( ANS( 5 )*WTMOLF/ 1.98726 ) +ALPHA*LOGF ( PC/ALPHA ) 
DLMPT=0 • 

DLMTD=0. 

BEGIN CALCULATIONS FOR CURRENT POINT 

CHECK TEMPFRATURE RANGF OF THERMODYNAMIC DATA 


DO 1117 J= 1 * 454 

111 ANSLAB( J)=ANS( J) 

1 T=EXPF(T LN) 

1 IF ( COEFT ( 7 * 1 ) -T ) 21,27,27 

2 IF (COEFT (7 ,1 )— 5000*0) 23*22,451 

2 IF ( I ADD-2 ) 51*31,31 

2 DO 1123 K = 1,15 

DO 1123 J = 1*90 

112 COEFT ( K , J ) = C0EFT1 ( K * J ) 

SENSE LIGHT 4 

GO TO 19 

2 DO 1125 K = 1,15 

DO 1125 J = 1,90 
112 C0EFT(K,J)=C0EFT2(K,J) 

SFNSF LIGHT 4 
GO TO 19 

2 IF ( T-COEFT (6*1)) 29,35,35 

2 IF ( 300.0-C0EFT (6,1 ) ) 25,22,451 

3 IF (SENSE LIGHT 4) 38,305 

LEAVE FRflZ EN PROGRAM IF DATA FOP ANY SPFCIES PUNS OUT 


2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 
2308 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 


42 


35 

IF (IACD-2) 51,37,37 



2 343 

37 

IF (SENSE LIGHT 4) 38,41 



2344 

38 

SENSE LIGHT 4 



2345 


DO 40 J= 1 , N 



2346 


IF ( COEF T ( 8 , J ) ) 40,39,40 



2347 

39 

IF ( EN ( J ) ) 40,40,309 



2348 

AC 

CONTINUE 



2349 


GO TO 49 



2350 

41 

DC 44 J= 1 , N 



2351 


IF ( EN ( J ) ) 44,44,42 



2352 

42 

IF (COEFT ( 5,J ) +20 • 0-T ) 285,43,43 



2353 

43 

IF ( T-C0CFT(4, J)+20.0) 295,44,44 



2354 

285 

IF ( 50GQ.0-C0EF T ( 5 , J ) ) 44,44,31 1 



2355 

295 

IF (C0EFT(4, J )-300.0) 44,44,311 



2356 

44 

CONTINUE 



2357 

C 




2358 

C 

BEGIN ITERATION 



2359 

C 




2360 

49 

PCP LN=LOGF ( PCP ( I ADD ) ) 



2361 

51 

CPSUM=O.C 



2362 


T=EXPF(T LN) 



2363 


DO 60 J= 1 , N 



2 364 


IF ( FN ( J ) ) 60,60,57 



2365 

57 

CPSUM, = CPSUM+( ( ( (COEFT ( 12 , J ) * T+C OEF T ( 11 , J) ) » T+CQEF T ( 10, J) ) * r + COEFT( 

2366 


19, J) )*T+C0EFT(8, J) )*EN(J) 



2367 

58 

HO ( J )= ( ( ( (COEFT ( 12*J)/5#0)*T + COE FT ( 1 1 , J ) /4 . 0 ) * T+COEF T ( 10, J ) / 3 . 0 ] 

1 *T 

2368 


1 + CCEFT (9, J )/2.0)*T +COEFT ( 1 3 , J ) /T+COEF T ( 8 , J ) 



2369 

59 

S(J)=((((CCEFT(12,J)/4.0 ) * T + COEF T ( 1 1 , J ) /3 . 0 ) * I + COEFT ( 10 , J ) / 2 . 0 ] 

► *T 

2370 


1 +COEFT (9,J) )*T+ COEFT ( 8 , J ) *T LN+COEFT ( 14 , J ) -EN 

LN ( J ) 


2371 

6C 

CONTINUE 



2372 


SUM H=C • 0 



2373 


SUM S=C.C 



2374 


DO 63 J = 1 , N 



2375 


SUM H= SUM F+HO ( J ) *EN ( J ) 



2376 

63 

SUM S= SUM S + S(J)*EN(J) 



2377 


IF (IACD-2) 81,65,65 



2378 

65 

IF (SENSE LIGHT 4) 66,81 



2379 

66 

SENSE LIGHT 4 



2380 

67 

D LN T= ( SUM S+(ALPHA*PCP LN )-S0 ) /CPSUM 



2381 

C 




2382 

C 

CHECK CONVERGENCE OF THE ITERATION 



2383 

C 




2384 


T LN=T LN-C LN T 



2385 


IF ( ABSF ( D LN TJ-0.5E-4) 73,73,51 



2386 

73 

IF (SENSE LIGHT 4) 17,17 



2387 

81 

DO 1181 J = 1,454 



2388 

1181 

ANS(J) = ANSLAB(J) 



2389 


SUM H= T * SUM H/WTMOLF 



2390 


CPR=CPSUM/WTMOLF 



2391 


GAMMA=CPR/ (CPR-( l.O/WTMOL) ) 



2392 


IF (IACD-2) 209,191,197 



2393 

C 




2394 

C 

CHECK FOR CONVERGENCE AT THROAT 



2395 

C 




2396 

191 

DHST AR = HC-SUM H - ( GAMMA*T/ ( 2 .0 *W TMOL ) ) 



2397 


IF ( ABSF ( DHSTAR/(HC-SUM H))-0.4E-4) 197,197,192 



2398 

192 

IF (ITROT) 193,197,193 



2399 

193 

PCP ( 2 ) =PCP ( 2 ) / ( 1.0+2.0*DHSTAR*WTM0L/(T*(GAMMA+1 

.0) ) ) 


2400 


SENSE LIGHT 4 



2401 


I T ROT = 1 TROT- 1 



2402 


GO TO 49 



2403 

C 




2404 

C 

CALCULATE PERFORMANCE PARAMFTERS 



2405 

C 




2406 

197 

SP IMP = ?94.98*SQRTF ( (HC-SUM H ) * 1 . 98726E-3 ) 



2407 


P=PC/PCP( I ADD ) 



2408 


AW = ( 86. 4 5 79 *T )/( P*WTMOL* 14 . 6960C6* SP IMP) 



2409 


IF (IACD-2) 203,201,203 



2410 

201 

AWT = AW 



2411 


CSTAR=32. 174*PC*14.696C06*AWT 



2412 

2C3 

CF=32 . 174*SP IMP/CSTAR 



2413 


ARATI0=AW/AWT 



2414 


VAC I=SP IMP+P*14.696006*AW 



2415 


VMACh=SP I MP/SCRTF ( 86 . 4 5 79*G AMM A # T / WTMCL ) 



2416 

207 

AN S ( 2 ) =P 



2417 


AN S ( 3 ) =T 



2418 
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209 HSUM=SUH H«l. 98726 2419 

CP = CPR« 1.98726 2420 

ANS ( 1 ) =PCP ( I ACC ) 2421 

ANS( 15)=CSTAR 2422 

WRITE TAPE 3, (ANSI I )• 1 = 1 ,454) 2423 

NO FROZ=NO FROZ+1 2424 

IF (HISSED) 451,223,451 2425 

223 I ACD= I ADC+ 1 2426 

IF (IACD-2) 1225,224,1225 2427 

224 PCP(2)=( (GAHHA-H.0)/2.C)**(GAMMA/(GAHMA-1.C) ) 2428 

T LN=T LN+L0GF(2.0/(GAHMA+1.0) ) 2429 

1225 IF ( I ACD-25 ) 225,225,451 2430 

225 IF (PCP(IACD)) 451,451,227 2431 

227 SENSE LIGHT 4 2432 

GC TO 49 2433 

C 2434 

C ERROR PRINT OUT 2435 

C 2436 

305 WRITE OUTPUT TAPE 6,306,T,IADD 2437 

3C6 FORHAT ( 17FLTHE TEHPERATURE=E 12 . 4 , 26H K, IS OUT OF RANGE, POINT 15) 2438 

IF (60CC.0-T) 449,307,307 2439 

3C7 IF (T-20C.C) 449,308,308 2440 

308 GO TO 41 2441 

44i9 H I SSED= 1 2442 

I I TROT=C 2443 

| IF (SENSE LIGHT A) 51,51 2444 

45jl WRITE TAPE 3, (G(I), 1 = 1,8044) 2445 

CALL CCRE5 2446 

RETURN 2447 

309 WRITE OUTPUT TAPE 6 , 3 1 C , ( COEF T ( I , J ) , I = 1 , 3 ) ,COEFT ( 6 , J ) , COEFT ( 7 , J ) 2448 

31C FORHAT (13F6THF SPECIES 3A6.29H HAS NO DATA IN THE INTERVAL 2F9.1) 2449 

DO 1311 K = 1,15 2450 

DO 1311 J = 1 , 9C 2451 

1311 COEFT ( K , J ) = COEFT 1 ( K , J ) 2452 

GO TO 449 2453 

311 write output tape 6 , 312 , (coeftu,j),i = i, 3 ),t 2454 

312 FORHAT (13F6THE SPECIES 3A6.19H HAS NO DATA AT T= F9.1) 2455 

GO TO 449 2456 


I 

J 
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SUBROUTINE 

COREA 




2457 

2458 

chapman-jouguet detonations 



2459 






2460 

2461 

COMMON C 





2462 

equivalence 

( G( I ) y 

can , 

( G ( A20 ) , 

C ( A20 ) ) 

2463 

ecuivalence 

(ANS(l), 

C(42l)) , (ANS(A5A) , 

C ( 874 ) ) 

2464 

equivalence 

(HSUM, 

C ( 424 ) ) , 

(SSUM, 

C ( A25 ) ) 

2465 

ecuivalence 

(WTMOL, 

C ( A26 ) ) , 

(CP, 

C ( A27 ) ) 

2466 

ECUIVALENCE 

(OLMPT, 

C ( A28 ) ) , 

( DLMTP , 

C ( A29 ) ) 

2467 

ecuivalence 

(GAMMA, 

C( A30 ) ) , 

( ARATIC, 

C ( A 31 ) ) 

2468 

ecuivalence 

(VMACH, 

C ( A 32 ) ) , 

(SP IMP, 

C ( A 33 ) ) 

2469 

ecuivalence 

(VACI , 

C ( A3A ) ) , 

(CF, 

C( A36) ) 

2470 

equivalence 

( RHO I y 

C ( A 37 ) ) , 

(RhOVAC, 

C ( A38 ) ) 

2471 

ecuivalence 

(RHO, 

C ( A39 ) ) 



2472 

EQUIVALENCE 

( T PI , 

C(AAO) ) , 

(PI I, 

C( AA1 ) ) 

2473 

equivalence 

(EP PI, 

C ( A A2 ) ) , 

(AW PI , 

C ( A A3 ) ) 

2474 

ecuivalence 

(T ETA, 

C ( A A5 ) ) 



2475 

ecuivalence 

(ETA I, 

C ( A A6 ) ) , 

(EP ETA, 

C ( A A7 ) ) 

2476 

ecuivalence 

(AW ETA, 

C ( AA8 ) ) , 

(T SIG, 

C ( A50 ) ) 

2477 

ecuivalence 

(SIG I, 

C ( A51 ) ) , 

(EP SIG, 

C( A52) ) 

2478 

ecuivalence 

(AW SIG, 

C ( A 53 ) 1 



2479 

equivalence 

(ANSLAB(l), C ( 8 75 ) ) , 

( ANSLAB ( A5A ) , C ( 1328) ) 

2480 

ecuivalence 

( FORM ( I ) , 

C ( 1 329 ) ) , 

(FCRM( 15) , 

C ( 1 343 ) ) 

2481 

ecuivalence 

( DAT A ( 1 ) , 

C( 1359) ) , 

(DATA( 23) , 

C( 1381 ) ) 

2482 

ecuivalence 

(MCATA(l) 

, C ( 1 359 ) ) , 

( MD AT A ( 2 3 ) , C1138D) 

2483 

equivalence 

( EN ( I ) , 

C( 1382) ) , 

( EN ( 90 ) , 

C( 1471) ) 

2484 

equivalence 

( ISYS, 

C( 1A72) ) 



2485 

ecuivalence 

( ACX, 

C( 1A7A) ) , 

( ACF , 

C11A75) ) 

2486 

equivalence 

( AMX, 

C( 1A76) ) , 

(AMF, 

C ( 1477 ) ) 

2487 

ecuivalence 

( RHO X , 

C( 1A78 ) ) , 

(RHOF , 

C( 1479) ) 

2488 

ECUIVALENCE 

(COEFX(l) 

, C ( 1 A80 ) ) , (COEFX ( 20 ) , C(1A99)) 

2489 

ECUIVALENCE 

(DX( I) , 

C ( 1500 ) ) , 

(DX120) , 

C (1519) ) 

2490 

EQUIVALENCE 

(FORMLA(l), C ( 1 520 ) ) 

, ( FORMLA ( 18 ) , C ( 1 537 ) ) 

2491 

ECUIVALENCE 

( MML A ( I ) , 

C ( 1 520 ) ) , 

( MML A ( 1 8 ) 

, C ( 1537 ) ) 

2492 

EQUIVALENCE 

( PROD ( 1 ) , 

C( 1538) ) , 

( PROD ( 3 ) , 

C( 1540) ) 

2493 

EQUIVALENCE 

(SYSTM( I ) 

, C ( 1 5A 1 ) ) , 

( SYSTM ( 1 5 ) » C ( 1 555 ) ) 

2494 

ECUIVALENCE 

( MTSYS ( 1 ) 

, C( 15AI ) ) , 

(MTSYS( 15) , 

C ( 1 555 ) ) 

2495 

EQUIVALENCE 

(OF, 

C( 1556) ) , 

(FPCT, C ( 1 557 ) ) 

2496 

EQUIVALENCE 

(OOF, 

C( 1556) ) 



2497 

EQUIVALENCE 

( PERCF , 

C( 1557) ) , 

(EQUIV, 

C ( 1558 ) ) 

2498 

ecuivalence 

( EQRAT, 

C( 1558) ) 



2499 

ECUIVALENCE 


(KASE, 

C( 1560) ) 

2500 

EQUIVALENCE 

(KONT, 

C ( 1 561 ) ) , 

(NF, 

C( 1562) ) 

2501 

EQUIVALENCE 

(NO, 

C( 1563) ) , 

(NE, 

C( 1564) ) 

2502 

ECUIVALENCE 

(NOEC, C ( I 565 ) ) 



2503 

EQUIVALENCE 

(NOFRCZ, 

C ( 1 566 ) ) 



2504 

ECUIVALENCE 

(PI, 

C ( 1567 ) ) , 

(Tl, 

C ( 1568 ) ) 

2505 

ECUIVALENCE 

(AMI, 

C( 1569) ) 

, (HI, 

C( 1570) ) 

2506 

EQUIVALENCE 

(CON, 

C ( 1 57 1 ) ) , 

(ITR, 

C ( 1572 ) ) 

2507 

ECUIVALENCE 

(R, 

C ( 1 573 ) ) , 

(KCDE, 

C( 1574) ) 

2508 

ECUIVALENCE 

(JEAN, 

C ( 1575 ) ) , 

( GAME , 

C( 1585) ) 

2509 

ECUIVALENCE 

(Al, C ( 1576 ) ) , ( A2 

, C ( 1 577 ) ) , (A3, C ( 1 578 ) ) 

2510 

ecuivalence 

( A A , C ( 1 579 ) ) , (A5, C( 1580)), ( A6 , C(1581)) 

2511 

ECUIVALENCE 

(A7, C ( 1582 ) ) , (A8, 

C ( 1583) ) , 

( A9 , C ( 1584 ) ) 

2512 

EQUIVALENCE 

(UUS, 

C( 1586) ) 

, (US, 

C( 1587) ) 

2513 

ECUIVALENCE 

(PPP, 

C( 1588) ) , 

( TTT , 

C( 1589) ) 

2514 

equivalence 

(TE, 

C ( 1590 ) ) , 

(TEM, 

C ( 1 591 ) ) 

2515 

EQUIVALENCE 

(AMD, 

C( 1592) ) , 

(UD, 

C( 1593) ) 

2516 

EQUIVALENCE 

( AMOL ( 1 ) , 

C ( 1 59 A ) ) , 

( AMOL ( 1 05 ) , C ( 1698 ) ) 

2517 

ecuivalence 

(KD, C ( 1763 ) ) , (II, C( 176A) ) 


2518 

ECUIVALENCE 

(MM, C ( 1 765 ) ) , (IN, _C ( 80A6 ) ) 


2519 

EQUIVALENCE 

(ME, C ( 1769 ) ) , (KORE, C ( 80A7 ) ) 


2520 

equivalence 

(BCX( 1) , 

C( 1771) ) , 

(BCX( 15) , 

C( 1785) ) 

2521 

EQUIVALENCE 

(BCF( 1) , 

C ( 1786 ) ) , 

( BCF ( 15) , 

C ( 1800 ) ) 

2522 

ECUIVALENCE 

(HX, 

C( 1801) ) , 

(HF, 

C ( 1 802 ) ) 

2523 

ECUIVALENCE 

( VXPLS, 

C ( 1 80 3 ) ) , 

( VXMIN, 

C ( 1804 ) ) 

2524 

EQUIVALENCE 

( VFPLS , 

C ( 1 805 ) ) , 

( VFMIN , 

C( 1806) ) 

2525 

ECUIVALENCE 

(ELMT(l), C ( 1 8C 7 ) ) , ( ELMT ( 15 ) , C(1821)) 

2526 

EQUIVALENCE 

(LLMT(l), C ( 1 807 ) ) , ( LLMT (15), C(1821)) 

2527 

ECUIVALENCE 

(EN LN ( 1 ) 

, 0(1861) ) , 

(EN LN ( 90 ) 

, C ( 1950 ) ) 

2528 

ECUIVALENCE 

(DEL N ( 1 ) 

, C ( 1 95 1 ) ) , 

(DEL N ( 90 ) 

, C ( 2040 ) ) 

2529 

ECUIVALENCE 

( HO ( 1 ) , 

C ( 20A 1 ) ) , 

( HC ( 90 ) , 

C ( 2 1 30 ) ) 

2530 

ECUIVALENCE 

( S ( 1 ) , 

C ( 2 1 3 1 ) ) , 

(S(9C) , 

C ( 2220 ) ) 

2531 

ECUIVALENCE 

( X ( 1 ) , 

C ( 222 1 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

2532 


45 


ECUIVALENCE 

( DEL T A ( 1 ) , 

. C ( 224 1 ) ) 


( DEL T A ( 20 ) , 

i C ( 2260 ) ) 

EQUIVALENCE 

(60(1), 

C ( 226 1 ) ) 


(BC( 15) , 

C ( 2275) ) 

ECUIVALENCE 

(PC, 

C ( 2276 ) ) 


(HSUBO, 

C ( 2277 ) ) 

ECUIVALENCE 

(SC, 

C ( 22 7 8 ) ) 


(T LN, 

C ( 2279 ) ) 

ECU IVALFNCE 

(T, 

C ( 228C ) ) 


( A A Y LN, 

C ( 228 1 ) ) 

ECUIVALENCE 

( A A Y , 

C ( 2232 ) ) 


(CPSUM, 

C ( 228 3 ) ) 

ECUIVALENCE 

(HC, 

C ( 2284 ) ) 


(TC LN, 

C ( 2285 ) ) 

EQUIVALENCE 

(PCP( 1 ) , 

C ( 2286 ) ) 


( PCP ( 2 5 ) , 

C ( 23 10 ) ) 

ECUIVALENCE 

( DATUP ( 1 ) , 

» C ( 23 1 1 ) ) 


( DA TUP ( 3 ) , 

C ( 231 3 ) ) 

EQUIVALENCE 

(PC, 

C( 2314) ) 


(TC, 

C ( 231 5 ) ) 

ECUIVALENCE 

( IPROB, 

C ( 2 3 1 6 ) ) 


( I F I XT , 

C ( 2 3 1 7 ) ) 

EQUIVALENCE 

( IhS , 

C ( 231 e ) ) 


( ICCND, 

C ( 2319 ) ) 

ECUIVALENCE 

( ISYP, 

C(23?C) ) 


( IPROD, 

C ( 2 32 1 ) ) 

ECUIVALENCE 

( IOID, 

C( 2322) ) 


( LDRUP , 

C ( 2323 ) ) 

ECUIVALENCE 

( I DR P , 

C ( 2323 ) ) 


(KCRUM, 

C ( 2324 ) ) 

EQUIVALENCE 

(L, 

C ( 2 32 5 ) ) 


(LI, 

C ( 2326 ) ) 

EQUIVALENCE 

(P, 

C ( 2327 ) ) 


(Ml , 

C ( 2 32 8 ) ) 

equivalence 

(N, 

C ( 2329 ) ) 


( IQ, 

C ( 2330 ) ) 

ECUIVALENCE 

( 101, 

C ( 2 33 1 ) ) 


( IC2, 

C ( 2332 ) ) 

ECUIVALENCE 

( IQ3 , 

C ( 2333 ) ) 


( KP AT , 

C ( 2334 ) ) 

EQUIVALENCE 

( IPAT, 

C ( 2335 ) ) 


( IUSE, 

C ( 2335 ) ) 

ECUIVALENCE 

( I ADD , 

C ( 2336 ) ) 


( ITNUPB, 

C ( 2337 ) ) 

ECUIVALENCE 

( ITAPE, 

C ( 2338 ) ) 


(P, 

C ( 2339 ) ) 

EQUIVALENCE 

( IDEBUG, 

C ( 2340 ) ) 


( IFROZ, 

C ( 234 1 ) ) 

equivalence 

(COEFTK 1) 

, C ( 3692 ) 

) 

, (C0EFT1 ( 1350) , C ( 504 1 

EQUIVALENCE 

( CCEFT 2(1) 

, C ( 504 2 ) ) 


(C0EFT2( 1350) , C ( 639 1 ) 

ECUIVALENCE 

(COEFT ( 1 ) , 

C ( 6392 ) ) 


(COEFT( 1350) , C ( 7741 ) 

ECUIVALENCE 

( ATOP( 1) , 

C ( 7742 ) ) , 


( ATCP13C3) , 

C ( 8044 ) ) 

EQUIVALENCE 

( MA TOP ( 1 ) , 

C ( 7742 ) ) 

, 

( M A TOP ( 30 3 ) 

, C ( 8044 ) ) 

ECUIVALENCE 

(TITLE(l), 

C ( 8055 ) 

), ( T I T LE ( 3 1 5 ) , C ( 8369 ) 

EGUIVALENCE(A( 1 ) , C(8578)), (A(69C 

), C ( 926 7 ) ) 


DIPENSION 

G ( 20 , 2 1 ) , 

A { 1 5 , 9C ) , 


EN ( 90 ) , 

EN LN ( 90 ) 

DIPENS ION 

DEL N(9C), 

HC ( 90 ) , 


S ( 90 ) , 

X ( 20 ) 

CIPONS ION 

CELT A ( 20 ) , 

BC ( 15) , 


PC P ( 25 ) , 

PROO ( 3 ) 

DIPENSION 

CCEFX ( 20 ) , 

DX ( 20 ) , 


FORP( 15) 


CIPCNSICN COEFTK 15,90) 

, COEFT2(15, 

,90) 


DIPENSION 

ELPT (15), 

D A T A ( 23 ) , 


DA T UM ( 3 ) , 

FORMLA( 18) 

DIPENS ION 

BOX ( 15) , 

BCF ( 15) , 


ANS ( 454 ) , 

SYSTM( 15) 

DIPENS ION LLPT ( 15) ,PTSYS( 15) ,MDATA(23) 


C I PENS ION 

ANSL AB ( 454 ) , 

COEFT( 15, 

,90) 


DIPENSION 

PAT OP ( 1 C 1 , 3 ) 

, ATOP ( 1C 1 , 3 ) 


CORE LOAD 4 

DETONATION VELOCITIES 





I F ( JEAN-101 ) ICC, 101, IOC 
IOC WRITE CUTPIT TAPE 6,2 

2 FORPAT (381-1 DETONATION VELOCITY CALCULATIONS) 
PPP=15.0 

CCN=( ACF+CCF*ACX)/( l.O+OOF) 

AP1=APX*APF*( 1 .O+OCF )/ ( APX+OOF*APF ) 

WRITE OUTPUT TAPE fc , 1C2 » KGDE 
1C2 FORPAT ( AX , 5HK0DE= I 1 ) 

PCP{ 1)=1.C/PPP 
PC P ( 2 ) =0 • 0 
R=l. 98726 
T T T = 0 • C 
H1=HSUB0»R 
P1 = PC 
T 1 = TC 
TC = C • 0 

PC=PC*14.696CC6 
I T R = 0 
IUSE=C 
JE AN = 1 C 1 

2C HSUB0=hl/R+.75*Tl/APl*PPP 
21 KCRF =0 
RETURN 

101 CO 1101 J= 1 , A 5 A 
1 1 C 1 ANS(J) = ANSLAP(J) 

GAP=G APMA 
I F ( KOD E ) 9 1 , 92 , 9 1 
91 GAPPA=GAPPA# { 1.0+DLPPT) 


2533 

2534 

2535 

2536 

2537 

2538 

2539 
2 5A0 
25A1 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

Correction 

2593 

2594 

Correction 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 
2603 
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92 PPP=ANS(2 )/Pl 2604 

TT T = ANS ( 3 ) / T 1 2605 

E=PPP 2606 

EE=TTT 2607 

I F ( I TR ) 20 1 * 200 , 20 1 2608 

2CC TEMM = W TMCL / AM 1 2609 

11=0 2610 

WRITE CUT PL T TAPE 6 , 203 , I I , PPP , TTT 2611 

DC 202 11=1,7 2612 

TEM=TEMM/TTT*GAMMA 2613 

PPPP=( l.C+CAMMA)/(2.C*TEM)* 2614 

2( l.C + SCRTF ( 1.0-4. C*TEM/(1. C+GAMMA) **2) ) 2615 

TE=TEM/GAMMA*PPPP 2616 

TTTT=EE-.75*R/( AM 1 *CP ) *E+GAMM A*R/ (2.*AM1*CP)*((TE**2-1.C)/TE ) *PPPP 2617 
WRITE CUT PL T TAPE 6 , 203 , 1 1 , PPPP , T T T T 2618 

203 FCRMAT ( 15, 2E2C.8) 2619 

IF(ABSF(PPPP-PPP)-. 1)205,205,206 2620 

2C6 PPP=PPPP 2621 

TTT=TTTT 2622 

202 CONTINUE 2623 

205 PCP( 1)=T1*TTTT 2624 

PC=P1*PPPP 2625 

TC=C.0 2626 

I PRCR = 3 2627 

I T R= 1 2628 

GAMMA=GAM 2629 

GC TU 21 2630 

2C1 TEMM=PPP/TTT*WTMCL/AM1 2631 

TEM=( 1.0-GAMMAMTEMM-1.0) ) 2632 

All=l.C/PPP-GAMMA*TEMM*( l.C+DLMPT) 2633 

A12=GAMMA*TEMM* ( 1.0-DLMTP) 2634 

A21=GAMMA/2.C*(DLMPT+TEMM**2* ( 2.C+DLMPT) J-CLMTP 2635 

HAL=GAMMA/2.0*( TEMM**2+1.0) 2636 

A22=HAL*( CLMTP-1.0)-WTM0L*CP/R 2637 

B1=1.0/PPP-TEM 2638 

B2 = WTMCL/( P*ANS (3) ) * ( HSUM-H1 )-GAMMA/2. C* ( TEMM**2- 1 . 0 ) 26 39 

ASSIGN 51 TC JJ 2640 

5C EEM=A1 1*A22-A21*A12 2641 

X1=(B1«A22-B2*A12)/EEM 2642 

X2= ( A1 1*R2-A21*B1 ) /EEM 2643 

GC TO JJ, (51,52,53, 59) 2644 

51 TE= ABSF (XI) 2645 

TEM=ABSF(X2) 2646 

IF ( TE-.4 )94,94,95 2647 

94 IF(TEM-.4)96,96,95 2648 

9fc ALAM=1.0 2649 

GC TC 97 2650 

95 IF(TE— TEM)93,93,98 2651 

93 HAL=TEM 2652 

GC TO 99 2653 

98 HAL=TE 2654 

99 ALAM=. 4/HAL 2655 

9 7 PPPP=PPP«EXPF(X1*ALAM) 2656 

TTTT=TTT*EXPF(X2*ALAM) 2657 

301 US=91. 18496 * SQRTF ( GAMMA* ANS ( 3 ) /W T MOL ) 2658 

UD=TEMM*US 2659 

PCP( 1)=T1*TTTT 2660 

PC=P1*PPPP 2661 

T C = C . 0 2662 

I P RCB = 3 2663 

TE = WTMCL/ AM 1 2664 

TEM=PPPP/TTTT*TE 2665 

E=X1**2+X2«*2 2666 

EE=SCRTF(E) 2667 

WRITE CUTPLT TAPE 6,10,ITR 2668 

1C FCRMAT ( 2 1F0 ITERATION NUMBER= I 2 , 1CX , 3H0LD, 1 7X , 3HNEW// ) 2669 

WRITE CUTPLT TAPE 6 , 30 , P PP , PP PP , T T T , T T T T , T EMM , T E M , X 1 , X2 , US , UD , E 2670 

2, EE 2671 

3C FCRMAT (6X,4HP/P1* 10X, 1H=2E20.8/6X,4HT/T1, 1 CX , 1H=2E20. 8/6X , 8HRH0/RH 2672 

IC1,6X, 1H=2E20.8/6X, 11HCEL LN P/Pl , 3X, 1H=E2C. 8/6X , 1 1HDEL LN T/T1,3X 2673 

2»1F=E2C.8/6X,2HUS,12X, 1H=E2C . 8/6X , 2HUD , 1 2X , 1H= E20 . 8/6X , 1HE , 1 3X , 1H= 2674 

3E2C.8/6X, 13HS0R ROOT OF E , 1 X , 1H=E2C . 8 ) 2675 

ppp=pppp 2676 

TTT=TTTT 2677 

I F ( ABSF(X1 J-.5E-C5) 11, 11, 12 2678 

11 IF( ABSF(X2)-.5E-C5) 13, 13, 12 26 79 


12 IF ( ITR-1C) 14, 13*13 
14 ITK=ITK+1 

G AN M A = CAN 
GC TC 21 

13 J E AN= 1 C 
P=PPP«P1 
T= TTT*T 1 

US=91. 18496 *SGRTF ( GANN A* T /WTMOL ) 

UC=TEM*US 

WRITE CUTPLT TAPE 6,31 
31 FCRNAT (171-1 FINAL ANSWERS//) 

WRITE CUT PL T TAPE 6 , 32 , PPP , T T T , T E , T EN , P , T , WTNCL , P 1 , T 1 , AM 1 , US , UC 

2 , CCN 

32 ^ C ^I ‘ 6X ^ HP/P1 ’ 1CX ’ lH = E20 - 8/6X ^ HT/T ^ 1CX .^ = ^0.8/6X,4HP/Ml,10 
2X i 1H-E^C« 8/6X , 8HRHO/RHC1 ,6X,1H=E2C.8/6X,IHP,13X,1H=E20.8/6X,1HT,13 
3X, 1H=E20.8/6X, 1HN, 13X, 1H=E2C.8/6X, 2HP1 , 1 2X , 1 H = E 20 . 8/6X , 2HT 1 , 12X, 1H 
4=F2C. 8 /6 x f 2 H Ml,12 x ,l H =E20.8/ 6 X, 2HUS , 12X,1H=E2C.8/6X, 2HUD , 12X , 1H=E2 
5C.8/6X,2FCP,12X,1H=E20.8) ' 

I F { CCN )41,40,41 

41 GANF=CCN/( CCN-R/ AM 1 ) 

ANC=UD/ (91 . 18496*SQPTF (GANF*T1/AN1 ) ) 

WRITE CUTPLT TAPE 6 , 42 , GANF , AND 

42 FCRNAT ( 6X , 7HGAMNA F , 7 X , 1H=E20 . 8/6X , 2HNC , 1 2X , 1 H= E 20 . 8 ) 

GC TC 15C 

4 C GANF=0.0 


AN C = G • C 

15C FEN=.5« ( 2.C+CLNPT) 

TENN=,5*(DLNTP-1 . C ) 

WRITE CUTPLT TAPE 6,55 

55 FCRNAT (17FC DERIVATIVE 0F,12X,4FLN P,13X,4HLN T,13X,5HLN UD/4X , 
22HB Y ) 

bi=i.o/ppp-ganna#ten 

B2 = GANN A* TEN «*2 
ASSIGN 53 TC JJ 
GC TC 5C 

53 CASE1=(FEN»X1+TENN*X2-1.C)*UD 
X1=X1-1.C 

WRITE CUTPLT TAPF 6 , 8 1 , X 1 , X2 , CA SE 1 
81 FCRNAT ( 6X , 12HLNP 1 AT T 1 , G , 7X , 1H=3E 17. 8 ) 

A 1 = X 1 
A2 = X2 


A 3=CASE 1 
B1=GANNA*TEN 

B2=-B1«TEN-WTNCL*C0N/R/TTT 
ASSIGN 59 TO JJ 
GC TO 50 

59 CASE4=(FEN*X1+TENN*X2+1.C)*UD 
X2=X2-1.C 

WRITE CUTPLT TAPE 6 , 84 , X 1 , X2 , CA SE4 

84 FCRNAT (6X, 16HLNT1 AT P 1 , H 1 , M 1 , 3 X , 1F = 3E 1 7 . 8 ) 
A4 = X 1 

A 5 = X 2 
A6 = C AS E4 
B 1=0 • 0 

B2=-WTNCL/ (R*T ) 

ASSIGN 52 TO JJ 
GC TO 50 
52 X1=X1*10CC.0 
X2 = X2* 10CC «C 

CASE5= (FEN«X1+TENN*X2 ) *UC 

WRITE CUTPLT TAPE 6 , 85 , X 1 , X2 , CA SE5 

85 FORNAT ( 6X , 2CHF 1 AT T1,P1,N1 =3E17.8) 

A 7 = X 1 

A 8 = X 2 


A9=CASE5 

GANNA=GAN 

IP«0B=1 


ULS = 9 1 . 184 96*S0RTF(GANF*T1/AN1) 

WRITE TAPE 3, ( G ( I ) , 1 = 1 , 8C44 ) 

CALL OLT 

KCRE=1 

RETURN 
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SLHRCliT I N E CUT 




2752 






2753 

CCMVCN C 





2754 

EQUIVALENCE 

CGI 1 1 v 

C ( 1 ) ) , 

( G ( 420 ) , 

0(470) ) 

2755 

EQUIVALENCE 

(ANSI 1 ) , 

C ( 4 ? 1 ) ) , ( ANS ( 4 54 ) , 

C ( 874 ) ) 

2 1 56 

EQUIVALENCE 

(hSUM, 

C ( 424 ) ) , 

( S SUM , 

C ( 425 ) ) 

2757 

equivalence 

( WTMCL, 

C ( 426 ) ) , 

(CP, 

C ( 42 7 ) ) 

2758 

equivalence 

(DLMPT, 

C(42P) ) , 

( DLMTP , 

C ( 429 ) ) 

2759 

EQUIVALENCE 

(GAMMA, 

C ( 430 ) ) , 

( ARATIC, 

C ( 4 3 1 ) ) 

2760 

EQUIVALENCE 

{ VMACF, 

C ( 4 32 ) ) , 

(SP IMP, 

C ( 4 33 ) ) 

2 761 

ECUIVALFNCE 

( VACI , 

C ( 4 34 ) ) , 

(CF, 

C ( 4 36 ) ) 

2762 

EQUIVALENCE 

( RHO I t 

C ( 4 37 ) ) , 

(RFOVAC, 

C(43«) ) 

2763 

equivalence 

( RFO » 

C ( 4 39 ) ) 



2764 

EQUIVALENCE 

(T PI, 

C ( 440 ) ) , 

(PI I , 

C ( 44 1 ) ) 

2765 

EQUIVALENCE 

(EP PI, 

C ( 44? ) ) , 

(AW PI , 

C ( 443 ) ) 

2766 

equivalence 

(T ETA, 

C ( 44 5 ) ) 



2767 

EQUIVALENCE 

(ETA I, 

C ( 446 ) ) , 

(EP ETA, 

C ( 447 ) ) 

2768 

EQUIVALENCE 

( AW ETA, 

C ( 443 ) ) , 

(T SIG, 

C ( 450 ) ) 

2769 

EQUIVALENCE 

(SIG I, 

C ( 4 5 1 ) ) , 

(EP SIG, 

C ( 452 ) ) 

2770 

equivalence 

(AW SIG, 

C ( 4 53 ) ) 



2771 

FQL I VALENCE 

(ANSLAD(l), C ( 875 ) ) , 

( ANSLAB (454) , C ( 1328) ) 

2772 

ECUIVALFNCE 

(FCRM ( 1 ) , 

C( 1329) ) , 

( FCRM ( 15) , 

C( 1343) ) 

2773 

FCUIVALENCF 

( DAT A { 1 ) , 

C( 1359) ) , 

(OATA( 23) , 

C( 1381 ) ) 

2774 

EQUIVALENCE 

( MC AT A ( 1 ) 

, C ( 1 359 ) ) , 

( PDATA ( 23 ) , C ( 1 38 1 ) ) 

2775 

equivalence 

(EN( 1 ) , 

C( 13e2) ) , 

( EN (90) , 

C( 1471) ) 

2 776 

EQUIVALENCE 

( ISYS, 

C ( 14 72 ) ) 



2777 

EQUIVALENCE 

( ACX, 

C( 1474 ) ) , 

( ACF, 

C ( 14 75) ) 

2778 

EQUIVALENCE 

( AMX, 

C( 1476) ) , 

( AMF, 

C( 1477 ) ) 

2779 

EQUIVALENCE 

(RHCX, 

C ( 1478) ) , 

( RHCF , 

C( 1479) ) 

2780 

EQUIVALENCE 

( COEF X ( 1 ) 

, C ( 1 48C ) ) , (COFFX( 

20, C ( 1499 ) ) 

2781 

EQUIVALENCE 

(DX( 1 ) , 

C( 1500) ) , 

( D X ( 20 ) , 

C (1519) ) 

2 782 

EQUIVALENCE 

(FCRMLA(l), C ( 15?0 ) ) 

, ( FORML A ( 18) , C ( 1537 ) ) 

2783 

EQUIVALENCE 

( MML A ( 1 ) , 

C( 1520) ) , 

( M M LA ( 18 ) 

, C ( 1537 ) ) 

2784 

EQUIVALENCE 

( PRCC ( 1 ) , 

C ( 1538 ) ) , 

( PROD ( 3 ) , 

C( 1540) ) 

2785 

EQUIVALENCE 

(SYSTM(l) 

, C ( 1 54 1 ) ) , 

(SYSTM15), C ( 1555) ) 

2786 

equivalence 

( MTS Y S ( 1 ) 

, C( 1541 ) ) , 

(MTSYS( 15) , 

C( 1555) ) 

2787 

equivalence 

( OCF , 

C ( 1556) ) 



2788 

equivalence 

(OF, 

C ( 1 556 ) ) , 

(FPCT, C ( 1557 ) ) 

2789 

equivalence 

(PERCF, 

C( 1557) ) , 

( ECU IV, 

C( 1558) ) 

2790 

ECUIVALFNCE 

( ECRAT, 

C( 1558) ) 



2791 

EQUIVALENCE 


(KASE, 

C( 1560) ) 

2792 

EQUIVALENCE 

( KCNT , 

C( 1561 ) ) , 

(NF, 

C( 1562) ) 

2793 

EQUIVALENCE 

(NC, 

C( 1563) ) , 

(NE, 

C( 1564) ) 

2794 

EQUIVALENCE 

(NCEC, C ( 1 56 5 ) ) 



2795 

equivalence 

(NCFRCZ, 

C( 1566) ) 



2 796 

EQUIVALENCE 

(Pit 

C( 1567 ) ) , 

(Tl, 

C( 1568) ) 

2797 

FCUIVALENCE 

(AMI, 

C( 1569) ) 

, (El, 

C( 1570) ) 

2798 

equivalence 

( CCN y 

C( 1571 ) ) , 

( ITR, 

C ( 1 572 ) ) 

2799 

EQUIVALENCE 

(R, 

C( 157 3) ) , 

( KCDE , 

C( 1574) ) 

2800 

EQUIVALENCE 

(JEAN, 

C( 1575) ) , 

( GAMF , 

C( 1585) ) 

2801 

EQUIVALENCE 

(Al, C ( 1576 ) ) , (A 2 

, C ( 1577) ) , (A3, C ( 1578 ) ) 

2302 

EQUIVALENCE 

( A A , C ( 1 579 ) ) , (A5, C ( 1 580 ) ) • ( A6 , C(1581)) 

2803 

equivalence 

( A 7 , C ( 1582 ) ) , ( A 8 , 

C ( 1583 ) ) , 

( A9 , C ( 1 584 ) ) 

2804 

EQUIVALENCE 

(UUS, 

C ( 15 86 ) ) 

, (US, 

C ( 1587) ) 

2805 

equivalence 

( PPP, 

C( 1588) ) , 

( TTT , 

C( 1589) ) 

2806 

EQUIVALENCE 

(TE, 

C( 1590) ) , 

(TEM, 

C( 1591 ) ) 

2807 

EQUIVALENCE 

(AMD, 

C( 1592) ) , 

(UD, 

C( 1593) ) 

2808 

EQUIVALENCE 

(KD, C ( 1 763 ) ) , (II, C ( 1764) ) 


2809 

EQUIVALENCE 

(MM, C ( 1765 ) ) , (IN, C ( 8046 ) ) 


2810 

EQUIVALENCE 

(MF, C( 1765) ) 



2811 

EQUIVALENCE 

( B C X ( 1 ) , 

C ( 1 77 1 ) ) , 

( BC X ( 15) , 

C ( 1785 ) ) 

2812 

EQUIVALENCE 

( BCF ( 1) , 

C( 1736) ) , 

(BCF ( 15) , 

C( 1800) ) 

2813 

EQUIVALENCE 

(HX, 

C( 1801) ) , 

(HF, 

C( 1802) ) 

2 314 

EQUIVALENCE 

(VXPLS, 

C( 1803) ) , 

( VXMIN, 

C( 1804) ) 

2815 

EQUIVALENCE 

(VFPLS, 

C( 1805) ) , 

( VFMIN, 

C( 1806) ) 

2916 

EQUIVALENCE 

(FN LN ( 1 ) 

, C( 186 1 ) ) , 

(EN LN ( 9C ) 

, C ( 1950) ) 

2817 

EQUIVALENCE 

(DEL N ( 1 ) 

, C ( 195 1 ) ) , 

(DEL N ( 90 ) 

, C ( 2040 ) ) 

2818 

EQUIVALENCE 

( HO ( 1 ) , 

C12041 ) ) , 

(HC(90) , 

C ( 2130 ) ) 

2819 

EQUIVALENCE 

(S( 1 ) , 

C ( 2 13 1 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

2820 

EQUIVALENCE 

( X ( 1 ) , 

C ( 222 1 ) ) , 

( X ( 20 ) , 

C ( 2240 ) ) 

2821 

equivalence 

( DELT A ( 1 ) 

, C ( 2 24 1 ) ) , 

( DEL T A ( 20 ) 

, C ( 2260 ) ) 

2322 

EQUIVALENCE 

(BC ( 1 ) , 

C ( 226 1 ) ) , 

( BC ( 15 ) , 

C ( 2275 ) ) 

2823 

EQUIVALENCE 

(PC, 

C ( 227 6 ) ) , 

(HSUBO , 

C ( 2277 ) ) 

2924 

EQUIVALENCE 

(SC, 

C ( 227 8 ) ) , 

(T LN, 

C ( 2279 ) ) 

2825 

FCUIVALENCE 

(T, 

C ( 228 0 ) ) , 

(AAY LN, 

C ( 228 1 ) ) 

2826 

equivalence 

( AAY, 

C C 228 2 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

2827 


EQUIVALENCE 

(HC, 

C ( 228 4 ) ) , 

(TC LN, C( 

2285) ) 

EQUIVALENCE 

( PCP ( 1) , 

C ( 2286 ) ) , 

( PCP ( 25 ) , C( 

2310) ) 

EQUIVALENCE 

( DATUM ( 1 ) , 

C ( 2 31 1 ) ) , 

( DATUM ( 3 ) , C( 

2313) ) 

EQUIVALENCE 

(PC, 

C ( 2 31 4 ) ) , 

(TC, C( 

2315) ) 

EQUIVALENCE 

( IPRCB, 

C12316) ) , 

( I F I XT , C( 

2317) ) 

EQUIVALENCE 

( IHS, 

C C 231 8 ) ) , 

(ICGND, C( 

2319) ) 

EQUIVALENCE 

( ISYM, 

C( 2320) ) , 

(IPROD, C( 

2321) ) 

EQUIVALENCE 

( ICID, 

C ( 2 32 2 ) ) , 

(LCRUM, C( 

2323) ) 

EQUIVALENCE 

( IDRM, 

C ( 2 32 3 ) ) , 

(KCRUM, C( 

2324) ) 

EQUIVALENCE 

(L, 

C ( 2 32 5 ) ) , 

(LI, C( 

2326) ) 

EQUIVALENCE 

(M, 

C ( 232 7 ) ) , 

(Ml, C( 

2328) ) 

EQUIVALENCE 

(IG1, 

C ( 2 33 1 ) ) , 

(IC2, C( 

2332) ) 

EQUIVALENCE 

(N, 

C ( 232 9 ) ) , 

(IQ, C( 

2330) ) 

EQUIVALENCE 

( IC3, 

C ( 233 3 ) ) , 

( KM AT , C( 

2334) ) 

equivalence 

( IMAT , 

C C 233 5 ) ) , 

( I USE , C( 

2335) ) 

equivalence 

( I ADD , 

C ( 233 6 ) ) , 

(ITNUMB, C( 

2337) ) 

EQUIVALENCE 

( ITAPE, 

C ( 233 8 ) ) , 

(P, C( 

2339) ) 

EQUIVALENCE 

( ICEBUG, 

C { 2 34 C ) ) , 

(IFROZ, C( 

2341) ) 

EQUIVALENCE 

(CCEFT1 ( 1 ) 

, C ( 36 92 ) ) , 

(COEFTK 1350) 

, C ( 504 1 

EQUIVALENCE 

( C0EFT2 ( 1 ) 

, C ( 504 2 ) ) , 

(CCEFT2( 1350) , 

C ( 6 39 1 ) 

EQUIVALENCE 

(CCEF T ( 1 ) , 

C ( 639 2 ) ) , 

(COEFT ( 1350) , 

C ( 7741 ) 

EQUIVALENCE 

( ATOM ( 1 ) , 

C ( 7742 ) ) , (ATCM(3C3), C(8C44)) 

EQUIVALENCE 

( MATOM ( 1 ) , 

C ( 774 2 ) ) , 

( M A TOM ( 303 ) , 

C ( 8044 ) ) 

EQUIVALENCE 

( TITLE! 1 ) , 

C ( 8 055 ) ) 

, (TITLE (315), 

C ( 8369 ) 

EQUIVALENCE 

(ELMT(l), C ( 1 8 C 7 ) ) , ( E LMT ( 15 ) , C(1821)) 

equivalence 

(LLMT(l), C ( 1 80 7 ) ) , ( LLMT ( 1 5 ) , C11821)) 

EQUIVALENCE 

(AMOL(l), C ( 9268 ) ) , (AM0L11170), C( 10437)) 

EQUIVALENCE! 

[ A( 1 ) , C ( 8578 ) ) , (A (69C) 

, C ( 9267 ) ) 


EQUIVALENCE 

(KSAN,C( 1C623) ) 



DIMENSION 

G ( 20 , 2 1 ) , 


EN ( 90 ) , EIS 

1 LN ( 90 ) 

DIMENSION 

DEL N ( 90 ) , 

HC ( 90 ) , 

S ( 90 ) , X ( 20 ) 

DIMENSION 

CELT A ( 20 ) , 

BC ( 15) , 

PCP ( 25 ) y PRCD ( 3 ) 

DIMENSION 

COEFX( 20 ) , 

DX(20), 

FORM ( 1 5 ) 


DIMENSION C0EFT1 ( 15,90) 

, CCEFT 2(15, 

90) 


DIMENSION 

ELMT ( 15 ) , 

C A T A ( 23 ) , 

DATUM ( 3 ) , FORML A (18) 

DIMENSION 

BCX( 15) , 

BCF( 15) , 

AN S ( 454 ) , SYSTM( 15) 

DIMENSION LLMT ( 1 5 ) , MT SYS 

( 15 ) ,MDATA (23) 


DIMENSION 

ANSL AB ( 454 ) , 

CCEF T( 15, 

90) 


DIMENS ION 

M A TOM ( 1 C 1 , 3 ) 

, A TOM ( 1C 1 , 3 ) 


DIMENSION T I TLE ( 3, 1C5 ) , 

A( 15,46) 


DIMENSION AMCLI 13,90 




2 FORMAT (5HCCASE NC.I5,F8 

• 2 » F8*2 ) 



3 FORMAT ( 1 H C i 

i 64X , 52HWT FRACTION ENTHALPY STATE 

TEMP 1 

2ACITY/25X, 16HCHEMICAL FORMUL A.24X , 10H ( SEE NCTE),4X 

, 7HC AL/MI 

35FDEG K,4X, 13HCAL/M0L-CEG K) 



4 FORMAT ( 1HC i 

1 84X , 46HWT FRACTION ENTHALPY STATE 

TEMP 


CP / 

2 25X, 16HCHEMICAL FORMULA ,44X,10H(SEE NOTE ) , 4X , 7HC AL/KCL , 

3 1C X , 5HCEG K) 

5 FORMAT ( 1F+,63X*F9«5,F12.3*4X,A1 ,F1C*2*F11«4) 
fc FORMAT ( 1F+,83X,F9«5,F12«3»4X,A1 ,F1C«2,F11*4) 

7 FORMAT (1HC,30X,4HC/F=F9.6,15H, PERCENT FUE L=F 8 . 4 , 20H , EQUIVALENCE 
1 R AT I0=F7 . A ) 

2C FORMAT ( 4 3X , 46HDE TCN A T I ON PROPERTIES OF AN IDEAL REACTING GAS) 

21 FORMAT (43X,45HCALCULATED USING SPECIFIC HEAT RATIC AS GAMMA) 

22 FORMAT ( 1HC , 2 AHTHERMODYN AM IC PROPER I TES/27X , 12HUNBVRNED GAS, 5X,10 
2HBURNEG GAS) 

23 FORMAT (1X.6HP, ATM , 2C X , F 1 2 . 5 ,3 X , F 12 . 5 ) 

24 FORMAT ( 1 X , 8HT , CEG K , 18X , F 12.2 , 3X , F 12 . 1 ) 

25 FORMAT (1X,9HH, CAL/G , 1 7 X , F 1 2. 1 , 3 X , F 1 2 . 1 ) 

2fc FORMAT ( IX, 1 5HS » CAL/G-DEG K ,26X,F12.A) 

27 FORMAT (1X,11HM, MCL. WT . 1 5X , FI 2 . 3 , 3X , F 1 2 . 3 ) 

28 FORMAT (1X,16HCP, CAL/G-DEG K , l OX , F 1 2 . A , 3X , F 1 2 . A ) 

29 FORMAT ( 1 X , 1 2H ( DLNM/DLNP ) T , 1 AX, F 1 2 . 5 * 3X f F 1 2 . 5 ) 

3C FORMAT ( 1X,12H{DLNM/DLNT)P, 1AX, F 1 2 . A, 3 X f F 1 2 . A ) 

31 FORMAT ( 1X,5HGAMMA,21X,F12.A,3X,F12.A) 

32 FORMAT ( 1 X , 9HUS , M/ SEC , 1 7 X , F 1 2. 1 , 3 X , F 1 2 . 1 ) 

33 FORMAT ( lHC/lX f ACHBURNEC GAS COMPOSITION IN MOLE FRACTIONS// ) 

3A FORMAT ( 1 HC / 1 X , 2 1HDETON AT I ON PARAMETERS, 

22X,27H(UC IN M/SEC, HI IN KCAL/G)) 

35 FORMAT ( 1HC,4HP/P1 , AX, 1H=F 7 . 3 , 5 X , 2 1H ( DL ( P/ P 1 J/DLP1 ) T1 ,H1 = F8.5,5X, 1 
28H ( CL ( P/P 1 ) /DLT1 )P1=F 8.5,5 X,20H (DL ( P/P 1 ) /DHl )P1.T1=F8.5) 

36 FORMAT ( 1X,AHT/T1,AX, 1H = F 7 . 3 , 5 X , 2 1H ( DL ( T/ T 1 ) /i,lP 1 ) T 1 ,H1 = F8.5,5X, 1 
18H ( DL ( T/T 1 )/CLTl ) P 1=F 8 . 5 , 5X , 20H ( DL ( T/T 1 ) /Dh 1 ) P 1 , T 1 =F8 . 5 ) 


2828 

2829 

2330 

2831 

2832 

2833 
283A 

2835 

2836 

2837 

2838 

2839 
28A0 
28A 1 
28A2 
28A3 
23AA 
28A5 
2 8A6 
28A 7 
28A8 
2 8A9 

2850 

2851 

2852 

2853 
2 85 A 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 
2863 
2 86A 

2865 

2866 

2867 

2868 
2869 
2370 

2871 

2872 

2873 
287A 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 
2883 
2 88 A 

2885 

2886 

2887 

2888 
2889 
2990 

2891 

2892 
2393 
289A 
2395 

2896 

2897 

2898 

2899 

2900 

2901 

2902 


Moles 


50 


37 FORMAT ( 1X,AHM/M1,AX, 1H=F7.A) 

38 FORMAT ( 1X,9HRH0/RHC1 = F7. A ) 

39 FORMAT (IX,9HMACH NC.=F7.A) 

AC FORMAT (IX, 9HUT =F7 . 1 , 5X , 1 6h ( C UD /DLP I ) T 1 , H 1 , A X , 1 H=F8 . 2 , 5X , 1 3 

IF ( C UD/DLT1)P1AX,1H=F8.2,5X,15H(C UD/DF 1 ) P 1 , T 1 , A X , 1H=F8 . 2 ) 

1CCC WRITE CUT PL T TAPE 6,18 
le FORMAT C 1 F 1 ) 

552 REWIND 3 

30C READ TAPE 3 , { ANS ( I ) , I = 1 , A 5 A ) 

FAL=P1*1A.696CC6 
1 = 1 
J = 3 8 

EC 350 J J= 1 » N 
AMCL ( 1 , I ) = ANS ( J ) 

J = J + A 
35C 1=1+1 

WRITE CUTPLT TAPE 6,20 
IF (KCDE) 351,352,351 

351 WRITE CUTPLT TAPE 6,21 

352 CCNTINLE 

e ZERC=OCCCCCCOCCOC 

1C6 J=3 A 

DC 1 C A 1=1, N 
CO 105 11=1,3 

KK = J+ I I 

1C5 TITLE! II , I ) =ANS IKK) 

1CA J = J + A 

ASSIGN 9C TO JEAN 

92 WRITE CUTPLT TAPE 6 , 2 , KASE , HAL , T 1 
GC TC JEAN, (90,91) 

9C IF (KD) 7 1C , 7CO , 710 
70C IF ( KS AN ) 702,701,702 

701 WRITE CUTPLT TAPE 6,3 
GC TG 97 

702 WRITE CUTPLT TAPE 6,733 

733 FORMAT (1HC,6AX,5?F MOLES ENTHALPY 

2 AO ITY/25X, 16HCFFMICAL FORMULA ,2 AX , 1 OH 
35FCEG K, AX , 13HC AL/MCL-CEG K) 

GC TO 97 

7 1 C IF ( K S AN ) 712,711,712 

711 WRITE CUTPLT TAPE 6, A 
GC TC 97 

712 WRITE CUTPLT TAPE 6,7AA 

7A A FORMAT (1HC,8AX,A6F MOLES ENTHALPY 

2 25X, 16FCFEMICAL FORMULA , A A X , 10F 

3 10X,5FCEG K) 

97 I F ( NF ) A51, A50, A51 

A 5 1 DC ICO 1 = 1, NF 
I 1 = I 
MM= 15 
CALL SPEC 
IF (KD)A01,AC0»AC1 

AOC WRITE CUTPLT TAPE 6 , 5 , A ( I , 3A ) , A ( I , 32 ) , A { I , A2 ) , A ( I , A A ) , A ( I , 36 ) 

GC TO IOC 

A 0 1 WRITE CUTPLT TAPE 6 , 6 , A ( 1 , 3A ) , A ( I , 32 ) , A ( I , A2 ) , A ( I , AA ) , A ( I , 36 ) 

ICC CCNTINLE 
A 5C I F { NG ) A53 , A52 , A53 
A 53 CC 1C1 1 = 1, NO 
1 1= I 
MM = 0 

CALL SPEC 
I F ( KC ) A 1 1 , A 10 » A 1 1 


A1C 

WRITE 

CUTPLT 

TAPE 

6,5,A( 1 , 33 ) , A ( 1,31) ,A( I , A 1 ) ,A( I,A3),A(I,35) 

All 

GO TO 
WRITE 

1C1 

CUTPLT 

TAPE 

6,6,Al 1,33) ,A{ 1,31) ,A( I , A 1 ) ,A( I, A3) ,A( I ,35) 

101 
A 52 

CONTINUE 
CONTINUE 
WRITE CUTPLT 

TAPE 

6,7,C0F,PERCF ,FCLIV 


WRITE 

CUTPLT 

TAPE 

6,22 


WRITE 

CUTPLT 

TAPE 

6, 23, PI, P 


WRITE 

CUTPLT 

TAPE 

6,2A,T1,T 


WRITE 

CUTPLT 

TAPE 

6, 25, HI, ANS ( A ) 


WRITE 

CUTPLT 

TAPE 

6, 26, ANS (5) 


WRITE 

CUTPLT 

TAPE 

6, 27, AMI, ANSI 6) 


WRITE 

CUTPLT 

TAPE 

6,28 ,CON , ANS( 7 ) 


WRITE 

CUTPLT 

TAPE 

6, 29, ZERO, ANS (8) 


STATE TEMP HEAT CAP 
,AX,7HCAL/M0L,9X, 


STATE TEMP CP / 

, AX , 7HCAL/MCL , 


2903 
2 90A 

2905 

2906 

2907 

2908 
2 9C9 

2910 

2911 

2912 

2913 
291 A 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 
292 A 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 


2937 

2938 

2939 
29A0 
29A 1 
29A2 
29A3 
29AA 
29A5 
29A6 
29A7 
29A 8 
29A9 

2950 

2951 

2952 

2953 
295A 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 
2 96A 

2965 

2966 


►Moles 



WRITE LUTPLT 

TAPE 

6,30,ZERC,ANS 15) 

2967 


WRITE CUTPLT 

TAPE 

6,31,GAMF ,ANS ( 1C ) 

2968 


WRITE CUTPLT 

TAP66 

, 32,LUS,US 

2969 


WRITE CUTPLT 

TAPE 

6,33 

2970 


IN=1 



2971 


ME = 2 



2972 


call ccmp 



2973 


WRITE CUTPLT 

TAPE 

6,34 

2974 


WRITC CUTPLT 

TAPE 

6,35»PPP»A1,A4,A7 

2975 


WRITE CUTPLT 

TAPE 

6,36,TTT ,A2,A5,A8 

2976 


WRITE CUTPLT 

TAPE 

6,40,UD, A3, A6,A9 

2977 


WRITE CUTPLT 

TAPE 

6 , 37 , TE 

2978 


WRITE CUTPLT 

TAPE 

6, 38, TEM 

2979 


WRITE CUTPLT 

TAPE 

6, 39, AMD 

2980 

207 

WRITE CUTPLT 

TAPE 

6,16 

2981 

16 

FORMAT (lhC, 

30X, 16HINPLT, G-ATOMS/G//) 

2982 


IF (NF-8 )8C,8C,81 


2983 

80 

KK= 1 



2984 


KKK=NE 



2985 


LCCP= 1 



2986 


GO TC 82 



2987 

81 

KK= 1 



2988 


KKK = 8 



2989 


LCCP=2 



2990 

82 

TC 85 J= 1 , LOOP 


2991 


WRITE CUTPLT 

TAPE 

6 , 1 1 , ( ELM T ( I) , I = KK , KKK ) 

2992 

11 

FCRMAT ( 1 1 X , 

8(6X,A2,7X) ) 

2993 


WRITE CUTPLT 

TAPE 

6,12, (BCF (I) , I=KK , KKK ) 

2994 

12 

FORMAT ( 5H FUEL,6X 

, 8E 1 5 • 7 ) 

2995 


WRITE CUTPLT 

TAPE 

6,13, (BOX ( I) ,I=KK,KKK) 

2996 

13 

FORMAT ( 8H OXIDANT 

, 3X , 8E 1 5 • 7 ) 

2997 


WRITE CUTPLT 

TAPE 

6,14, (BC (I) ,I = KK,KKK) 

2998 


14 FCRMAT (111- PRGPELLANT, 8E15.7) 

IF (LOCP-1) 86,85,86 

86 KK = 9 
KKK=NE 

WRITE CUT PL T TAPE 6,15 

15 FCRMAT(lhO) 

85 CCNTINLE 

ASSIGN 91 TC JEAN 
GC TO 52 

91 IF ( KS AN ) 751,750,751 
75C WRITE CUTPLT TAPE 6,115 

119 FORMAT (6HCN0TF. , 2X , 7 1FWE I GHT FRACTION OF FUEL IN TOTAL FUELS AND 
IGF OXIDANT IN TOTAL OXIDANTS) 

751 CCNTINLE 
RETURN 


2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 


3009 

3010 


3011 


Moles 

Moles 

Moles 



SUBROUTINE CNCE ( N , M ) 

3012 

C 



3013 

C 

CUT PUTS CDC PRODUCTS 

3014 

C 



3015 

c 



3016 


CCMMCN C 

3017 


ECU I V ALENC E (TITLE(l), C18055)), (TITLE1315), CI8369)) 

3018 


DIMENSION M 105) ,TITLE(3, 1C5) , TFM { 1C ) , FMT ( 3 ) 

3019 


WRITE CUTPLT TAPE 6,1 

3020 

E 

FMT 

( 1 )=7401302C736C 

3021 

E 

FMT 

< 3) = 21C6346C6C60 

3022 

e 

TEM 

( 1 )=6C6C01677302 

3023 

E 

TEM 

( 2)=6CC1C46773C2 

3024 

E 

TEN 

{ 3) =600207677302 

3025 

E 

TEM 

(4)=6CC4CC677302 

3026 

E 

TEM 

( 5)=6C05C3677302 

3027 

e 

TEM 

(6)=6CC6C66773C2 

3028 

E 

TEM 

( 7)=6007116773C2 

3029 

E 

TEM 

(8)=601102677302 

3030 

E 

TCM 

(9)=01CCC 5 677302 

3031 

E 

TEM 

( 10)=C1C11C6773C2 

3032 


K = C 


3033 


KK = 

1C 

3034 


CO 

1C 1=1, N 

3035 


J = M ( I ) 

3036 


52 


IF ( I — KK ) 2C , 2C , 2 1 3037 

2C K = K ♦ 1 3038 

GC TC 5 3039 

21 K= 1 3040 

KK=KK+10 304 1 

WRITE CUTPLT TAPE 6,1 3342 

1 FORMAT (1H ) 3043 

5 EMT(2)=TEM (K) 3044 

WRITE CUTPLT TAPE 6 , EMT , T I TLE ( 2 , J ) , T I TLE ( 3 , J ) 3045 

1C CONTINUE 3046 

RETURN 3047 


SUDRGUT I NE SPEC 3048 

C 3049 

C OUTPUTS FUEL AND OXIDANT FROM SUBROUTINE INPUT 3050 

C 3051 

C 3052 

COMMON C 3053 

EQUIVALENCE (KONT, C ( 1 76 3 ) ) 3054 

EQUIVALENCE (I, CI1764)), (M,C(1765)) 3055 

EQUIVALENCE (All), C C 85 78 ) ) , (A169C), C ( 9267 ) ) 3056 

EQUIVALENCE (ELMT(l), C ( 1807 ) ) , ( ELM T ( 1 5 ) , C(1821)) 3C57 

DIMENSION A( 15,46) ,TEM(5) , ANAME (5) ,ELMIT( 15) 3058 

DIMENSION 1 1 ( 5 ) 3059 

55 FORMAT (10X,AHFUEL) 3060 

66 FORMAT ( 10X , 7HCXIDANT ) 3061 

IE (M ) 2,1,2 3062 

1 WRITE CUTPLT TAPE 6,66 3063 

GC TC 3 3064 

2 WRITE OUTPUT TAPE 6,55 3065 

3 K=C 3066 

CO 11 J- 1 , 1 5 3067 

KK= I +M 3068 

IE(A(J,KK))12,11,12 3069 

12 K = K + 1 3070 

TEM(K)=A( J,KK) 3071 

ANAME ( K )=ELMT ( J ) 3072 

I I ( K ) = TEM ( K ) 3073 

11 CONTINUE 3074 

I E ( KON T ) 2 1 , 20 , 21 3075 

20 WRITE CUTPLT TAPE 6 , 4 , ( ANAME ( I ) , I I ( I ) , 1 = 1 , K ) 3076 

A FORMAT ( 1H+, 18X,5(A2, 12, 5X) ) 3077 

GO TO 13 3078 

21 WRITE OUTPUT TAPE fc , 5 , ( ANAME (I ) , TEM ( I ) , I* 1 ,K ) 3079 

5 FORMAT ( 1H4,18X,5(A2,F8.5,3X) ) 3080 

13 RETURN 3081 


53 


SUPRCUIINE COP 3082 

c 3083 

C OUTPUTS COMPOSITION 3084 

c 3085 

c 3086 

CCMMCN C 3087 

EQUIVALENCE (AM0L(1), C(9268)), (AMOU1170), C C 10A37 ) ) 3088 

EQUIVALENCE (NANA, C(1768)), (IN, C(8046)) 3089 

EQUIVALENCE (ME, C(1769)), (N, C(2329)) 3090 

EQUIVALENCE (TITLE(l), C ( 3C55 ) ) , ( T I TLE ( 315 ) , C ( 8369 ) ) 3091 

EQUIVALENCE ( MT I TL E ( 1 ) , C ( 805 5 ) ) » ( MTITLE ( 315 ) , C ( 8 369 ) ) 3092 

EQUIVALENCE ( CK I T , MCM I T ) 3093 

CIMENSION TITLE(3, 1C5) , IOMTl 105) , ILESS( 1C5I 3094 

DIMENSION AM0L( 13,90) 3095 

CIMPNSION FMT(4 ) ,TEM(4) 3096 

CIMENSION MITLE (3,1C5) 3097 

1 FORMAT ( 1X,2A6,2X, 13F9.5) 3098 

3 FORMAT ( 1 FC, 1 1 8HADD I T ION AL PRCDUCTS WHICH WERE CONSIDERED BUT W 3099 

1HCSE PELF FRACTIONS WERE LESS THAN 0.0CC0C5 FOR ALL ASSIGNED CONDI 3100 
2TICNS//) 3101 

4 FCRMAT (1HC, 59HPROCUCTS WHICH WERE INTENTIONALLY OMITTED FROM 3102 

1CALCUL ATIONS// ) 3103 

e CMIT=464431636C60 3104 

e TFM( 1 )=6C6C07677302 3105 

8 TEM2)=6CC2C66773C2 3106 

B TEM ( 3)=6C06C46773C2 3107 

8 TEM(4)=6C11C26773C2 3108 

8 F M T ( 1 )=74C13C2C736C 3109 

e FMI ( 3)=21C673261C33 3110 

8 FMT (4)=05346C6C6C6G 3111 

K =0 3112 

KK=4 3113 

ICV=C 3114 

ILE=C 3115 

I F ( ME- 1 ) 6 1 , 6C » 6 1 3116 

61 WRITE CUT PL T TAPE fc,44 3117 

6 C 1 1 =C 3118 

rc 9 1=1, N 3119 

IF ( MT I TLE ( 1 * I J-MCMIT) 1C, IOC, 1C 3120 

ICC ICM=ICM+1 312-1 

I CM I T ( I CM ) = I 3122 

GC TO 9 3123 

1C CO 11 J=l, IN 3124 

I F { AMOL ( J , I )-.5C-05 ) 11, 12, 12 3125 

11 CCNTINLE 3126 

ILE=ILE+1 3127 

ILESSt I L E ) = I 3128 

GC TC 9 3129 

12 I F ( ME— 1)51,50,51 313C 

5C WRITE CUTPLT TAPE 6,1 , T I TLE ( 2, I ) , TI TLE ( 3 , I ) , ( AMCL ( J J , I ) , J J= 1 , IN ) 3131 

GC TO 9 3132 

51 11=11+1 3133 

IF ( II-KK)2C0,2C0»2C1 3134 

2CC K = K + 1 3135 

GC TO 5 3136 

2C1 K= 1 31 37 

KK=KK+4 3138 

WRITE CUTPLT TAPE 6,44 3139 

44 FORMAT ( IF ) 3140 

5 FMT (2)=TEM (K) 3141 

WRITE CUTPLT TAPE 6 , FMT , T I TLE (2 , I ) , T I TLE ( 3 , I ) , AMCL ( 1 , I ) 3142 

9 CCNTINLE 3143 

I F ( ILF) 21,20,21 3144 

21 WRITE CUTPLT TAPE 6,44 3145 

WRITE CUTPLT TAPE 6,3 3146 

CALL ONCE ( ILE, ILESS) 3147 

2C IF(ICM) 31,30,31 3148 

31 WRITE CUTPLT TAPE 6,44 3149 

WRITE CUTPLT TAPF 6,4 3150 

CALL ONCE ( IC1M, ITMIT) 3151 

3C RETURN 3152 


c 

c 

c 

c 


e 


SUBROUTINE CCRE5 
OUTPUT ROUTINE 


C ( B 74 ) ) 

C( 1558) ) 

C ( 1 560 ) ) 
0(1562) ) 
C( 1564) ) 


CCHHCN C 

EQUIVALENCE (ANS(l)t C(421)), (ANS(454), 

EQUIVALENCE (PERCF, C(1557)), (ECUIV, 

EQUIVALENCE (OCF, C ( 1556) ) 

EQUIVALENCE I KCDE , C(1559)), (KASt, 

EQUIVALENCE (KCNT, C(1561)), INF, 

EQUIVALENCE (NO, C ( 1 56 3 ) ) » (NE, 

EQUIVALENCE (NCEC, C C 1 565 ) ) 

EQUIVALENCE (NCFRGZ, C(1566)) 

EQUIVALENCE (KC, C ( 1 763 ) ) , (II, C ( 1 764 ) ) 

EQUIVALENCE (HH, C( 1765) ) 

EQUIVALENCE (LEN, C ( 1 766 ) ) , (HAY, C ( 1 76 7 ) ) 

EQUIVALENCE (NANA, C(1768)), (ME, C ( 1769) ) 

EQUIVALENCE (LOOP, C ( 177C ) ) , ( K TAPE , C ( 8045 ) ) 

EQUIVALENCE (BCX(l), C1177D), ( BCX ( 15) , C( 1785)) 

EQUIVALENCE (BCF(l), C ( 1786) ) , (6CF115), C( 1800)) 

EQUIVALENCE ( RC ( 1 ) , C(2261)), ( BC ( 15 ) , C(2275)) 

EQUIVALENCE (IPRCB, CC2316)), (IFIXT, C(2317)) 

EQUIVALENCE (N, C ( 232 9 ) ) , (IQ, C ( 2330 ) ) 

EQUIVALENCE (IN, C(8046)) 

EQUIVALENCE (KK, C ( 804 8 ) ) , ( KKK , C ( 8C49 ) ) 

EQUIVALENCE (TITLE(l), C ( 8 C5 5 ) ) , ( T I TLE ( 3 1 5 ) , C ( 8 369 ) ) 
EQUIVALENCE (FLHT(l), C(18C7)), ( EL M T ( 1 5 ) , C(1821)J 

EQUIVALENCE (PAR(l), C ( 83 70 ) ) , (PAR(2C8), C ( 85 77 ) ) 
EQUIVALENCE(A( 1) , C ( 8578 ) ) » (A(69C), 0(9267)) 

EQUIVALENCE (AHOL(l), C ( 9 268 ) ) , (AH0L(1170), C ( 104 3 7) ) 

EQUIVALENCE (DER(l), C11C438)), (CER1169), C(10606)) 

EQUIVALENCE (N AREA, C ( 10607 ) ) 

ECUIVALENCE(SAREA( 1 ) ,C( 1C6C8) ), (SARCA( 13) ,C( 10620) ) 
EQUIVALENCE ( PC , C ( 2 3 14 ) ) , ( HC , C ( 22 84 ) ) 

EQUIVALENCE ( K SAN , C ( 10623 ) ) 

0 I MENS ION SAREA(13) 

Cl HENS ION TITLE ( 3, 1C5 ) ,PAR( 13,16) ,DER( 13,13 ) , 

2 A ( 1 5 , 4 6 ) ,ELHT ( 15) 

3,ANS(454) 

CIHENSICN BCX( 15) ,BCF( 15) ,B0( 15 ) 

C I HENS ION AHCL( 13,90 
CIHENSION A SOL (13) 


EX IT=256731636C6C 

2 FCRHAT (9HCCASE NO . I 5 , F8 . 1 , F7 . 3 ) 

3 FCRHAT ( 1HC,64X,46FWT FRACTION FNTHALRY STATE TEHP DENSITY/ 

225X, I6FCFEH ICAL FOR HUL A , 24 X , 1 OH ( SE E NOTE) ,4X,7hCAL/MCL,10X, 

35FCEC K , 4 X , 4HG /CC ) 

4 FCRHAT ( 1HC, 84X,46HWT FRACTION ENTHALPY STAfE TEMP DENSITY/ 

2 25X, 16HCHEMICAL FORMULA , 44 X , 10H SEE NOTE ) , 4 X , 7HC AL/MCL , 

3 8X , 5H0FG K,4X,4HG/CC) 

5 FCRHAT (1H+,63X,F9.5,F12.3,4X,A1,F1C.2,F11.6) 

6 FCRHAT(IF+,83X,F9.5,F12.3,4X,A1,F1C.2,F11.6) 

7 FGRHAT ( 1 F C , 3CX , 4H0 / F= F 9 . 6 , 1 5H , PERCENT FUEL=F 3 . 4 , 20H , EQUIVALENCE 
1 RAT IC=F7.4, 1CF, DENS I T Y = F 7 . 4 ) 


DC 60 1=1,13 
6C ASCLl I ) = EX IT 

I T ( IPRCB-2 )550, 550,551 
55C N AN A= 2 


CC TO 552 


551 N A N A = 1 

552 REWIND 3 
KANE = NANA 

DC 2C0 MF= I , KANE 
KTAPE=C 

30C READ TAPE 3, ( ANS ( I ) , I = 1 , 454 ) 
KT APE = KT APE + I 
F AL = AN S ( 2 ) « 14.696CC6 
HALL=ANS( 19 ) 

I F ( HF - I )2C2, 201,202 
20 1 LEN = NOEQ 
CC TC 203 
2C2 LEN=NOFRCZ 
2C3 IF(LEN-13 ) 1C2, 102,103 
1C2 KOCE=0 

GC TC 1C6 


3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

Area ratio 
Area ratio 
Area ratio 
Moles 

Area ratio 

3185 

3186 

3187 

3188 

3189 
3 19C 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 
32 1C 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 


1C 2 KCNT=C 
KCDE= 1 2 
1C6 J = 3 <i 

CC 1C4 I = 1 , N 
DC 105 11=1,3 
K K = J + I 1 

1 C 5 TITLE! II*I )=ANS(KK) 

1C4 J = J + 4 
M A Y = 1 

1C0C WRITE CUTPLT TAPE 6,18 
18 FCRFAT { 1 H 1 ) 

CALL HEAL' 

ASSIGN ?CCC TC LENN 
2CC2 ASSIGN 9C TC JEAN 

92 WRITE CUTPLT TAPE 6 , 2 , K ASE , HAL , CCF 
CC TC JEAN, (90,91 ) 

9C IF ( KH ) 7 1C , 9C0 , 710 
9CC IF(KSAN)9C2,9C1,902 
9C1 WRITE CUTPLT TAPE 6,3 
GC TC 97 

9C2 WRITE CUTPLT TAPE 6,733 

733 FCRMAT (IFC,64X,46F MOLES ENTHALPY STATE TEMP DENSITY/ 

225X , 16FCFEM ICAL FOR MUL A , 24 X , 1 OH , 4X , 7HCAL/MCL , 10X , 

35FCEG K , 4 X , 4HG /CC ) 

GC TC 97 

710 IF (KSAN) 712,711,712 

711 WRITE CUTPLT TAPE 6,4 
GC TC 97 

712 WRITE CUTPLT TAPE 6,744 

744 FORM AT (1HC,84X,46H MOLES ENTHALPY STATE TEMP CENSITY/ 

2 25X , 16FCHEM ICAL FORMULA , 44 X , 1 OF , 4 X , 7HC AL/MCL , 

3 PX , 5H0EG K , 4 X , 4HG/CC ) 

97 IF(NF)251, 350,351 

351 CC 100 1=1, NF 

I 1= I 
MM= l 5 
CALL SPEC 
IF(KC)401, 400,401 

4CC WRITE CUTPLT TAPE 6 , 5 , A ( I , 34 ) , A ( I , 32 ) , A ( I , 42 ) , A ( I , 44 ) , A ( I , 36 ) 

GC TC IOC 

4 C 1 WRITE CUTPLT TAPE 6 , 6 , A { 1 , 34 ) , A ( I , 32 ) , A ( I , 4 2 ) , A ( I , 44 ) , A ( I . 36 ) 

ICC CONTINUE 

35C IF ( NO ) 253 * 252, 353 

353 DC 1C1 1 = 1, NO 

II = 1 


MM = 0 

CALL SPEC 

IF (KC ) 4 1 1 ,410,411 

410 WRITE CUTPLT TAPE 6 , 5 , A { I , 33 ) , A ( I , 3 1 ) , A ( I , 4 1 ) , A ( I , 4 3 ) , A ( I , 35 ) 

GC TC 101 

411 WRITE CUTPLT TAPE 6 , 6 , A ( I , 33 ) , A ( I , 3 1 ) , A ( I , 4 1 ) , A ( I , 4 3 ) , A ( I , 35 ) 
101 CCNTINCE 

352 CCNTINCE 

WRITE CUTPLT TAPE 6 , 7 , COF , PERCF , EQU I V , F ALL 
GC TO LENN , ( 2CC0, 2CC1 ) 

2CCC I F ( KCDE ) 5 1 , 5C » 5 l 
5C IN=LEN 
GC TO 56 

51 IF(KCNT) 52,52,53 

52 IN=KCDE 
KCNT=1 
GC TC 56 


52 I N = L F N -13 
KCL'E = C 


56 CALL R E AC 

I F ( IPRCP-2 )60C, 600,601 
601 WRITE CUTPLT TAPE 6,602 

6C2 FORMAT ( 3 7F CEOL I L I F.R I UM T HERMOD YN AM I C PROPERTIES) 
CALL PERPAR 
GC TC 2C6 

60C WRITE CUTPLT TAPE 6,8 
8 FORMAT ( 11FCPARAMFTFRS) 

IF (MAY-1 )64,63,64 
63 K K = I N— 2 

WRITE CUTPLT TAPF 6 , 6 1 , ( A SCL ( I ) , I = 1 , KK) 


3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

Area ratio 
Area ratio 

3237 

3238 


► Moles 


J 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

Area ratio 
Area ratio 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 


61 FCRPAT { 1HC, 1 6X , 7HCH APBER , 4 X , 7HTHRCAT , 1C ( 3X , A6 ) , 3X , A4 ) 

GC TO 65 

64 WRITE CUTPLT TAPE 6 , 66 , ( ASCL ( I ) , I = 1 • I N ) 

66 FORMAT ( 1HC , 15X, 13 ( 3X, A6) ) 

65 CCNTINLE 
CALL PERPAR 

I F ( PE- 1 ) 2C6 * 2C5 * 206 
205 WRITE CUTPLT TAPE 6,99 
99 FCRPAT ( 1H ) 

WRITC CUTPLT TAPE 6,9 
9 FCRPAT ( 12FCCERIVAT IVES) 

IF (HAY- 1 ) 5C3,5C2,5C3 
5C3 CALL PERCER 
GC TO 504 
5C2 CALL PERDEY 
5C4 CCNTINLE 

2C6 WRITE CUTPLT TAPE 6,99 
WRITE CUTPLT TAPE 6,10 
1C FCRPAT (15FCPCLE FRACTIONS//) 

CALL CCPP 

ASSIGN 3CCC TC LENNN 
207 WRITE CUTPLT TAPE 6,16 
16 FCRPAT ( 1FC, 3CX, 16HINPLT, G-ATOPS/G//) 

IF CNE-e ) 8C , 8C , 81 
8C KK = 1 
KKK=NE 
LCCP= 1 
GC TC 82 

81 KK = 1 
KKK = 8 
LCC P = 2 

82 CC 85 J= 1 , LCCP 

WRITE CUTPLT TAPE 6 , 1 1 , ( ELPT ( I ) , I =KK , KKK ) 

11 FCRPAT ( 11X,8(6X,A2,7X) ) 

WRITE CUTPLT TAPE 6,12, (BCF ( I ) , I =KK , KKK ) 

12 FCRPAT ( 5H FUEL , 6X , 8E 1 5 • 7 ) 

WRITE CUTPLT TAPE 6,13, (BOX ( I ) , I =KK , KKK ) 

13 FCRPAT ( 8 H CX I C ANT , 3X , PE 1 5 . 7 ) 

WRITE CUTPLT TAPE 6,14, (BC ( I ) , I = KK , KKK ) 

14 FCRPAT (111- PROPELLANT, 8E15. 7) 

IF ( LOOP- 1 ) 86,85,86 

86 KK=9 
KKK=NE 

WRITE CUTPLT TAPE 6,15 

15 FCRPAT(IPO) 

85 CCNTINLE 

ASSIGN 91 TC JEAN 
GC TC 92 

91 IF ( K S AN ) 7 51 , 75C ,751 
75C WRITE CUTPLT TAPE 6,119 

119 FGRKAT ( 6HCN0T E • , 2X , 7 1 EWE I GHT FRACTION CF FUEL IN TOTAL FUELS AND 
10F CXICANT IN TOTAL OXIDANTS) 

751 CCNTINLE 

GC TO LENNN ,( 3CCC, 3001 ) 

300C I F ( KCDE ) 96 , 95 , 96 
96 PAY=P AY+ 1 
GC TC 1CCG 

95 IF ( IPRCB-2 ) 70C,7CC, 701 
70C IF(NAREA)7C2,7C1,702 
7C2 IF (LEN-4)7C1»7C3,7C3 
703 CALL SANFC 

I F ( IPRCB-2 )7CC0, 7001, 7C01 
700 1 IF(PE-1)70C3, 7002,7003 
7CC2 WRITE CUTPLT TAPE 6,7CC5 

7C05 FCRNAT ( 25X, 8CHTHECRF T ICAL RCCKET PERFORMANCE ASSURING ECUILIB 

2RIUR CCPPOS I T I CN DURING EXP ANSI CN/44X , 28HFR0P AN ASSIGNED TEPPERAT 
3URE/ 

445X , 24PFCR ASSIGNED AREA RATIOS) 

GC TG 5050 

7C03 WRITE CUTPLT TAPE 6,70C6 

7006 FCRPAT ( 25X , 75HTHECRET ICAL ROCKET PERFCRPANCE ASSURING FROZFN 

2CCPPCS IT ION DURING E XPANS I CN/44 X , 2 8HFRCP AN ASSIGNED TEPPERATURE/ 
345X,24I-FCR ASSIGNEC AREA RATIOS) 

GC TG 505C 

7CCC I F ( ME— 1 ) 70 • 71,70 

7C WRITE CUTPLT TAPE 6,4CC0 


3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 
33C1 
33C2 

3303 

3304 

Area ratio 

3305 

3306 
33C7 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 
3326 

3329 

3330 

3331 

Moles 

Moles 

3333 

3334 

Area ratio 
Area ratio 
Area ratio 

3336 

3337 
-\ 


►-Area ratio 


4CCC FCKMAT ( 1H1 , 25X , 75HTHECRET ICAL RCCKET PERFORMANCE ASSUMING FROZEN 
?CCM POSITION CURING EXPANSION/ 

345X , 24EFCR ASSIGNEC AREA RATIOS) 

GC TG 505C 

71 WRITE CUTPIT TAPE 6,50C0 

5CCC FCRMAT ( 1H 1 , 25X , 80HTHECRET ICAL RCCKET PERFORMANCE ASSUMING ECUILIB 
2RIUM CCMPGSITICN DURING EXPANSION/ 

345X,24EFCR ASSIGNED AREA RATIOS) 

5C5C CONTINLO 

ASSIGN 2C0 1 TG LENN 
GC TG 2CC2 
2C0 1 CALL EXITT 

ASSICN 3CO 1 TG LENNN 
GC TO 2C7 
3CC 1 CGNTINLC 
701 IF (NANA-1 )2C8,20C,2C8 
2C8 NAN A=C 
2CC CONTINUE 
RETURN 
C 
C 

c 


► Area ratio 


3339 

3340 

3341 

3342 

3343 

3344 


SUBROUTINE HEAL' 

C 

C OUTPUTS PROPER HEADING ACCORDING TO PROBLEM NUMBER 

C 


CCMMCN C 

ECLIVALENCE (IPROB, C ( 23 16 ) ) , (ME, C ( 1 769 ) ) 

ICC FCRMAT ( 25X, PCHTHECRETICAL ROCKET PERFORMANCE ASSUMING ECUILIE 

2RIUM COMPOSITION DURING EXPANSION) 

20C FCRMAT ( 25X , 75HThECRET I CAL ROCKET PERFORMANCE ASSUMING FROZEN 

2C0MPCSITICN CURING EXPANSION) 

3CC FORMAT ( 2 5 X , 8 CH THECR E T I C AL RCCKET PERFORMANCE ASSUMING ECUILIE 

2RIUM COMPOSITION DURING EXPANSI GN/44X , 28HFRCM AN ASSIGNED TEMPERAT 
3URE ) 

4CC FORMAT ( 25X , 75H THECRE T I CAL RCCKET PERFORMANCE ASSUMING FROZEN 

2CCMPCSITI0N DURING EXPANSION/ 44 X,28HFRCM AN ASSIGNED TEMPERATURE) 
5CC FORMAT ( 25X , 74HTHECRET ICAL THERMODYNAMIC PROPERTIES AT ASSIGNE 

?C PRESSURE ANC TEMPERATURES ) 

6CC FORMAT ( 2 5X , 74H THECRE T I CAL THE R MOD YN AM I C PROPERTIES AT ASSIGNE 

2D TEMPERATURE AND PRESSURES) 

I F ( I PRCB-2 ) 1 , 2 , 1C 
1C IF ( I PROP— A ) 3,4,5 
5 WRITE OUTPUT TAPE 6,90C0 

9CCC 47HTHECRET ICAL THERMCC YNAM IC COMBUSTION PROPERTIES) 


1 IF(ME-1 ) 12, 11 , 12 


1 1 

WRITE OUTPUT TAPE 
RETURN 

6, IOC 

12 

WRITE OUTPUT TAPE 
RETURN 

6 , 2CC 

2 

IFCMO — 1 ) 14, 13, 14 


13 

WRITE OUTPUT TAPE 
RETURN 

6 , 30C 

14 

WRITE OUTPUT TAPE 
RETURN 

6 , 40C 

3 

WRITE OUTPUT TAPE 
RETURN 

6 , 5CC 

4 

WRITE OUTPUT TAPE 
RETURN 

6 , 60C 


3345 

3346 

3347 
3 $48 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 
3 358 

3359 

3360 

3361 

3362 

3363 

3364 
3365, 


H,P 


3367 
3 368 

3369 

3370 
33 71 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 
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SUBROUTINE PERCER 


OUTPUTS PERFORMANCE DERIVATIVES 


CCMMCN C 

ECLIVALENCE (IN, CI8CA6)) 

EQUIVALENCE (PER(l), C ( 1CA 38 ) ) 

CIMENS ION P ER ( 13,13) 

1 FORMAT ( 1 5h C ( DL I/DLPC )PC/P13F9. 5) 

2 FORMAT (15F ( DL T / CL PC ) PC /P 1 3F 9 . 5 ) 

3 FORMAT ( 16F ( DL AR/DLPC ) PC/PF8. 5 , 1 2F9. 5 ) 
A FORMAT (16F ( DLC S/DL PC ) PC / PF 8 . 5 , 1 2F 9 . 5 ) 

5 FORMAT ( 15F0IDL I/DHC JPC/HM3F9. 5) 

6 FORMAT (15F ( DL T/DHC ) PC/P* I 3F9. 5 ) 


( PER ( 169) , C( 1C6C6 ) ) 


3 38 A 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 
3 39A 

3395 

3396 

3397 

3398 


7 

FORMAT 

( 1 6F 

( DLAR/DFC ) PC/P*F8.5 

, 

12F9 

.5) 

3399 

8 

FORMAT 

( 16F 

( DLCS/DFC )PC/P»F8.5 

, 

12F9 

.5) 

3A00 

9 

format 

( 16F 

MFC 

IN KCAL/G ) ) 




3A0 1 

1C 

FORMAT 

( 13F0( DL I/DLPCP ) S, 2X 

,13F 

9 

.5) 


3A02 

11 

FORMAT 

( 131- 

( DL T/DL POP ) S , 2X 

» 1 3F 

9 

.5) 


3 AO 3 

12 

FORMAT 

( 15F 

( DLAR/CLPCP )S 13F9. 

5 

) 


3A0A 


URI 

TE 

OUTPUT 

TAPE 

6,1, (PERI 

1,2) 

, 

1*1, 

IN) 

3 A05 


UR I 

TE 

OUTPUT 

TAPE 

6,2, (PER ( 

1,1) 

, 

1 = 1, 

IN ) 

3 A06 


UR I 

TE 

CUTPLT 

TAPE 

6,3, ( PER ( 

1.3) 

, 

1*1, 

IN) 

3A07 


UR I 

TE 

OUTPUT 

TAPE 

6, A, (PERI 

1,5) 

, 

1=1, 

IN) 

3A08 


UR I 

TE 

CUTPLT 

TAPE 

6,5, (PER ( 

1.7) 

» 

1*1. 

IN) 

3A09 


UR I 

TE 

CUTPLT 

TAPE 

6,6, (PERI 

1,6) 

, 

1 = 1, 

IN) 

3A10 


UR I 

TE 

CUTPLT 

TAPE 

6,7, (PERI 

1,8) 

, 

1 = 1, 

IN) 

3A11 


UR I 

TE 

CUTPLT 

TAPE 

6,8, (PERI 

I , 10 

) 

,1 = 1 

• IN) 

3A12 


UR I 

TE 

CUTPLT 

TAPE 

6,9 





3A13 


UR I 

TE 

CUTPLT 

TAPE 

6, 10, (PER 

(1,1 

2 

),I = 

1, IN) 

3 A 1 A 


URI 

TE 

CUTPLT 

TAPE 

6,11, (PER 

(1,1 

1 

),I = 

1, IN) 

3 A 1 5 


URI 

TE 

CUTPLT 

TAPE 

6, 12, (PER 

(1,1 

3 

),I = 

1, IN) 

3 A 1 6 


RETURN 








3A17 


3A1 8 
3 A 1 9 
3A20 


C 

C 

C 

C 


c 

c 

c 



SUBROUTINE PORCEY 




3A21 








3 A22 


OUTPUTS PERFORMANCE DERIVATIVES 


3A2 3 








3A2A 

3A25 


CCMMCN 

C 





3 A26 


ECLIVALENCE 

(IN, 

C( 8CA6) ) 



3A27 


EQUIVALENCE 

( PER ( 1 ) , C ( 1C A 3 8 ) ), 

( PER ( 169 ) , C ( 10606 ) ) 

3A28 


DIMENSION PFRI13, 

13) 



3 A29 

1 

format 

( 15FC(0LI/DLPC)PC/P,9X,12F9.5) 

3 A30 

2 

FORMAT 

( 15F 

(DLT/DLPOPC/P13F9.5) 


3A3 1 

3 

FORMAT 

( 16F 

(DLAR/DLPOPC/P, 

8X , 12FS.5) 

3A32 

A 

FORMAT 

( 16F 

(DLCS/DLPC )PC/P, 

8X, 12F9.5) 

3A33 

R 

FORMAT 

( 15FC(DLI/DHC)PC/P*,9X,12F9.5) 

3A3A 

6 

FORMAT 

( 15F 

(CLT/CHC)PC/P*13F9.5) 


3 A35 

7 

FORMAT 

( 1 6 F 

(CLAR/DFUPC/P*, 

8X , 12F9.5) 

3A36 

8 

format 

( 16F 

(CLCS/OFCJPC/P*, 

8X, 12F9.5) 

3 A37 

9 

FORMAT 

( 16F 

* ( FC 

IN KCAL/G ) ) 



3A38 

1C 

FORMAT 

( 13FC(DLI/DLPCP)S,11X 

, 12F9 

.5) 

3A39 

11 

FORMAT 

( 13F 

(DLT/DLPCP)S,2X, 

13F9. 

5) 

3AA0 

12 

FORMAT 

( 15F 

(DLAR/DLPCP)S,9X 

, 12F9 

.5) 

3 A A 1 


WRITE 

CUTPLT 

tape 

6,1, ( PER ( I 

,2) , I 

=2, IN) 

3AA2 


WRITE 

CUTPLT 

TAPE 

6,2, ( PER ( I 

,1) , I 

= 1 , IN ) 

3 AA3 


WRITE 

CUTPLT 

TAPE 

6,3, (PERI I 

,3), I 

= 2, IN) 

3AAA 


WRITE 

CUTPLT 

TAPE 

6, A, (PER ( I 

,5) ,1 

=2, IN) 

3AA5 


WRITE 

CUTPLT 

TAPE 

6,5, (PERI I 

,7) ,1 

= 2, IN) 

3AA6 


WR I TE 

CUTPLT 

TAPE 

6,6, ( PER ( I 

,6) , I 

= 1, IN) 

3AA 7 


WRITE 

CUTPLT 

TAPE 

6,7, (PER ( I 

,8), I 

= 2, IN) 

3 AA8 


WRITE 

CUTPLT 

TAPE 

6,8, (PER ( I 

, 1C) , 

r\j 

II 

3AA9 


WRITE 

CUTPLT 

TAPE 

6,9 



3A50 


WRITE 

CUTPLT 

TAPE 

6,10, (PERI 

1,12) 

, 1=2, IN) 

3A51 


WRITE 

CUTPLT 

TAPE 

6, 11, (PERI 

1,11) 

, 1 = 1, IN) 

3A52 


WRITE 

CUTPLT 

TAPE 

6, 12, (PERI 

1,13) 

, 1=2, IN) 

3A53 


RETURN 






3 A5 A 
3 A55 
3A56 
3 A57 
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SUBROUTINE RE AC 
C 

C SCR TS WHAT IS CN TAPE 3 

C 

C 

COMMON C 

FCUIVALENCE (ANSI 1 ) » C(421)), (ANS(454), C(874)) 

EQUIVALENCE (LCN, C(1766 )), (MAY, C ( 1767) ) 

EQUIVALENCE (LCOP, C ( 177C ) ) v (KTAP[, C(3045)) 
ECLIVALENCE ( IN, C ( 8C46 ) ) 

ECLIVALENCE (NN, C(2329)) 

ECU I VALENCE (PAR(l), C(837C)), (PAR(2C8), C C 8577 ) ) 
EQUIVALENCE (AMOL(l), C ( <3 2 6 8 ) ) v (AMCL(117C), 0(10437)) 
ECLIVALENCE (CER(l), C ( 1 C 3 8 ) ) , (CER(169), C(1C6C6)) 

DIMENSION PAR( 13,l6),DER( 13,13) , ANS(454) 

CIMENS ION A MCL { 13, 9C) 

CC 1 1 = 1, IN 
CC 2 J = 1 , 16 

2 PAR ( I , J)=ANS( J ) 

N= 1 

CC 3 J=2C , 32 
CER ( I , N ) = AN S ( J ) 

3 N = N + 1 
N'= I 

J = 3 8 

CC 4 J J= 1 , NN 
AMCL( I ,N) = ANS( J ) 

J = J+4 
A N=N+ I 

IF (KTAPE-LEN) ICO, 1, ICO 
ICC RE A C TAPE 3, (ANS(K) ,K=1,454) 

KT APE = KTAPE + 1 
1 CONTINUE 
RETURN 
C 
C 
C 


3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 
34 R 1 

3482 

3483 
34e4 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 


SUBROUTINE PORPAR 
C 

C OUTPUTS PERFORMANCE PARAMETERS 

C 

C 

CCMVCN C 

FCUIVALENCE (KCDE, C ( 1 768 ) ) 

EQUIVALENCE (IN, C ( 8046 ) ) , (MAY, 0(1767)) 
FCUIVALENCE (PAR(l), C(837C)) f (PAR(20E), C(8577)) 
CIMENSICN PAR(13,16),NN(13) 


1C 

FORMAT 

(5H 

PC/P, 1CX ) 


11 

FORMAT 

(EH 

P, ATM , 7X ) 


12 

FORMAT 

( 9H 

T, CFG K,6X,13I9) 


13 

FORMAT 

( SH 

H, CAL/G , 6X , 1 3FS. 1 ) 


14 

FORMAT 

( 1 5 F 

S, CAL/ (G ) (K ) 13F9. 

4) 

15 

FORMAT 

(10FCM, MCL WT,5X, 13F9.3) 

16 

FORMAT 

( 11F 

(CLM/0LP)T,4X, 13F9. 

5) 

17 

FORMAT 

( 1 1 F 

(DLM/DL T ) P , 4 X , 13F9. 

4) 

18 

FORMAT 

( 151- 

CP, CAL /(G) (K) 13F9. 

4) 

1 

format 

( 6H 

GAMMA, gx, 13F9.4 ) 


2 C 

format 

( 12F 

MACH NUMBER, 3X, 13F9 

.3) 

21 

format 

( 15FCCST AR , FT/SFC 1319) 


22 

FORMAT 

( 3H 

CF, 12X, 13F9. 3) 


23 

FORMAT 

( 6h 

AE/AT ,9X, 13F9.3) 


24 

FORMAT 

(151- 

1VAC, LB-SEC/LB 13F9. 

1) 

25 

FORMAT 

( 15F 

I« LH-SFC/LB 13F9. 

1) 


I F ( KCC E- 1)2,1 ,2 

1 WRITE OUTPUT TAPE 6,111 
111 FORMAT (8FCP, ATM ,7X) 

GC TO 2 

2 WRITE CUTPLT TAPF 6,10 
CALL VAR (1,2) 

WRITE CUTPLT TAPF 6,11 


3495 

3496 

3497 

3498 

3499 

3500 
35C 1 

3502 

3503 
3 5C4 

3505 

3506 

3507 

3508 
35C9 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 Area ratio 

3527 


c 

c 

c 


3 CALL VAR ( 2 , 2 ) 

CC 6C 1 = 1* IN 

6C NN ( I ) =* H AR ( 1 , 3 ) + . 5 

WRITE CUTPLT TAPE fc , 12 , ( NN ( I ) , 1 = 1 , IN ) 
WRITE CUTPLT TAPE 6 , 13 , ( PAR ( I , 4 ) , I = 1 , I N ) 
WRITE CUTPLT TAPE 6 , 1 A , ( PAR ( I , 5 ) , I = 1 , I N ) 
WRITE CUTPLT TAPE 6,15, (PAR( 1,6) *1=1, IN) 

I F ( KCCE ) 6 » 5 , 6 

6 WRITE CUTPLT TAPE 6 , 16 , ( PAR ( I , 0 ) , I = 1 , I N ) 
WRITE CUTPLT TAPE 6 , 1 7 * ( P A R ( I , 9 ) , I = 1 , I N ) 

5 WRITE CUTPLT TAPE 6,18, (PAR( 1,7) , 1=1, IN) 
WRITE CUTPLT TAPE 6 , 19 , ( PAR ( I , 10 ) , I = 1 * IN ) 
IF ( K0CE- 1)A1,4C»A1 

AC RC T URN 

A 1 WRITE CUTPLT TAPE 6,20, (PAK( 1,12) , 1 = 1, IN) 
CO 61 1=1, IN 

61 NN ( I )=PAR( I ,15) + . 5 
IF (NAY-1) 51,50,51 

5C WRITE CUTPLT TAPE 6 , 3 1 , ( NN ( I ) , I =2 , I N ) 

WRITE CUTPLT TAPF 6 , 32 , ( PAR ( I , 16 ) , I =2 , IN ) 
WRITE CUTPLT TAPE 6,33 
CALL VAR( 11,2) 

WRITE CUTPLT TAPE 6 , 3A , ( PAR ( I , 1A ) , 1=2 , IN ) 
WRITE CUTPLT TAPE 6 , 35 , ( P AR ( 1 , 1 3 ) , I =2 , I N ) 

31 FCRNAT ( 15FCCSTAR, FT/SEC ,9X,12I9) 

32 FORMAT (3H CF , 2 1 X , 1 2F9 . 3 ) 

33 FCRNAT (6h AE/ A T , 1 8X , 1 2F 9 . 3 ) 

3 A FORMAT ( 15F I VAC , LB-SEC/LB ,9X , 12F9 . 1 ) 

35 FCRNAT (15F I, LB-SEC/LB ,9X,12F9.1) 
RETURN 

51 WRITE CUTPLT TAPE 6 , 2 1 , ( NN ( I ) , I = 1 , I N ) 

WRITE CUTPLT TAPE fc ,22 , I PAR ( I , 16 ) , 1 = 1 , IN ) 
WRITE CUTPLT TAPE 6,23 
CALL VAR ( 11,2) 

WRITE CLTPLT TAPE fc ,2A , ( PAR ( I , 1A ) , 1 = 1 , IN ) 
WRITE CLTPLT TAPE 6 , 2 5 , ( P A R ( I , 1 3 ) , I = 1 , I N ) 
RETURN 


3528 Area ratio 

3529 

3530 

3531 

3532 

3533 
3 53A 

3535 

3536 

3537 

3538 

3539 
35A0 
35A 1 
35A2 
35A3 
35A4 
35A5 
35A6 
35A 7 
35A8 

35A9 Area ratio 

3550 

3551 

3552 

3553 
355A 

3555 

3556 

3557 

3558 

3559 

3560 

3561 Area ratio 

3562 

3563 
3 56A 

3565 

3566 

3567 


SUBROUTINE VAR ( INCEX.K 1 ) 

C 

C SPECIAL FCFNAT FCR FC/P,P, ANC AE/AT 

C 

c 

CCNNCN C 

EQUIVALENCE (IN, C ( 8 C A 6 ) ) , (NAY, C ( 1 7 6 7 ) ) 
EQUIVALENCE (PAR(l), C( 837C)), (PAR (208) , C ( 8 5 7 7 ) ) 
CINENSICN FNT( 3) ,PAR( 13, 16) ,TEN(A) ,AN( A) ,TENN( 13) 
e ZERC=1133CC3A6C6C 

E CNE=1133C13A6C60 

B TWG=1133C23A6060 

e TFR=1133C33A6C60 

B FR=11330A3A606C 

E TEMN( 1 )=60C 10A677326 

B TENN(2)=60C203677326 

B TFNN( 3)=6CC302677326 

e TENV( A )=6CCAC1677326 

B TENN(5)=60C500677326 

E TEN.M(6)=6CC511677326 

B TENM( 7)=6CC610677326 

B TF M.N( 8 )=6CC707677326 

B TENN(9 )=601C06677326 

B TENM( 1C)=6C11C5677326 

B TENN( 11)=C1000A677326 

E TENM( 12 )=C10103677326 

e TENN( 13)=C1C2026773?6 

E FNT( 1)=7A013C20736C 

IF(K1-2)101,100,101 
ICC I F ( IN0EX-K1 ) 1,2,3 
101 I F ( INDEX— Kl)3, 1,2 
1 TEN ( 1 ) =1 •OEOA 
TEN(2)=1.CEC5 
TEM,( 3) = 1.CEC6 


3568 Area ratio 

3569 

3570 

3571 

3572 

3573 
357A 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 
358A 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 
359A 
3595 

Area ratio 
Area ratio 
Area ratio 

3597 

3598 

3599 


61 



AM 1) = THK 

3600 


Ay ( 2 ) = TWU 

3601 


Ay ( 3 ) =CNE 

3602 


Ay (4)=ZERG 

3603 


GC TC 4 

3604 

2 

TCM 1 ) = 1 .0 

3605 


rEM2) = lC.C 

3606 


TFM3) = 1CC.C 

36C7 


Ay ( l ) = F R 

3608 


Ay ( ? ) = T HR 

3609 


Ay ( 3)=ThC 

3610 


AM 4 )=INF 

3611 


CC TC 4 

3612 

3 

TEN ( 1 ) = 1 C . C 

3613 


TEN (2)=1C0.C 

3614 


TEM ( 3 ) =1CCC .0 

3615 


AN ( 1 ) = T HR 

3616 


Ay ( 2 ) = TVs'O 

3617 


Ay ( 3 ) = CNF 

3618 


AN (4 )=ZERC 

3619 

4 

CC 5 1=1, IN 

3620 


IF ( I- 1 ) 53 , 5C , 53 

3621 

5C 

IF ( y A Y- 1 ) 53,52,53 

3622 

52 

I F ( INDEX- 1 1 ) 53,5,53 

362 3 

53 

CCNTINUF 

3624 


FM ( 2 )=TFyy { 1 ) 

3625 


CC 6 J= 1 , 3 

3626 


IF (PARI I, INCEX)-TEMJ) )1C,6,6 

3627 

1C 

ryT(3)=Ay ( j) 

3628 

11 

WRITE OUTFIT TAPE 6 , FPT , PAR ( I , INHEX ) 

3629 


GO TC 5 

3630 

6 

CONTINUE 

3631 


ry i (3)=Ay (4) 

3632 


WRITE OUTPUT TAPE 6 , FM T ,PAR( I, INDEX) 

3633 

5 

CONTINUE 

3634 


RETURN 

3635 
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SUBROUTINE SANFO 
C 

C (USED FOR ARFA RATIO INTERPOLATION ONLY) 

C 

C 

CCRRCN C 

EQUIVALENCE (SAREA! 1) ,C(106C8) ), ( SAREAt 13) ,C( 10620) ) 
ECUIVALENCE(NAREA,C( 10607) ) 

EQUIVALENCE (PCR(l), C ( 1CA 38 ) ) » (PF.R(169) f CI 10606)) 

EQUIVALENCE (PAR(l), C!8370)), (PAR(2C8), C(8577)) 

EQUIVALENCE ( PC , C ( 2 3 1 A ) ) , { HC ,C C 2284 ) ) 

EQUIVALENCE (NOEC, C ( 1 565 ) ) 

EQUIVALENCE (LEN,C( 1766) ) , (ME,C(1769)) 

EQUIVALENCE ( I N , C ( 8CA6 ) ) 

EQUIVALENCE ( IGNDER »C ( 1C62 1 ) ) 

EQUIVALENCE ( IOVER »C ( 1C622 ) ) 

EQUIVALENCE! PCP! 1) ,C(?2 86) ), ( PCP ( 25 ) , C ( 2 310 ) ) 

DIRENSICN PCP ( 2 5 ) 

DIMENSION PAR! 13, 16) , PER! 13, 13) , SAKE A! 13), TER! 13, 1C) , SPEC (2) 

C I PENS ION A ( 6 , 7 ) 

CIRPNSICN A N S ( 6 ) 

CIRENS10N TCMR { 13 ) 

LEN=LEN 
NUNN=0 
8C NUN = C 

DC 82 1 = 3, LFN 

IF ( PCP ( I ) -PCP ( 2 ) ) 83, 83, 89 
89 NUNN=NUN\’+1 
GO TO 82 
83 NUN- NUN ♦ 1 
82 CCNTINUC 
81 IF (NUN) 8 5 , 8A , 85 
8A KCK =A 

GC TO 86 

85 KCK = A + NUN 
KCKK=KCK-2 

86 CONTINUE 
97 L= I 

DC 1 1=1, NAKFA 
IF ( I — I UNDER ) IOC, ICO, 101 
IOC I F { NUN- l ) 2C 1 , 2C 1,2CC 
201 L = L- 1 
GC TO 1 

2CC DO 22 J= A , KQKK 

IF (SARFA! I )-PAR! J, 11 ) ) 22,AA,AA 
A A IND=J-1 
GC TO 6 
22 CONTINUE 
IND=K0KK-1 
GC TO 6 

101 IF (NUNN-1 ) 201,201 ,2C2 
2C2 CC 2 J=KCK,LEN 

IF ( S AR F A ( I ) — PAR ( J , 1 1 ) ) A, A, 2 
A I N C = J — 1 
GC TO 6 
2 CONTINUE 

IF ( SAREA! I )-PAR(LFN, 11 ) « 3 . C ) 9 1 , 90 , 90 
91 IND=LEN- 1 
6 IFIRL— 1)60,66,60 
6C K=INU 

CO 6A J= 1 , 2 

PE ft (K, 1?)=1. 98726*P AR (K, J)/(2.C*PAK(K, 6) *(HC*1. 98726- PA R(K, A))) 
PER(K, 11) =-1.98726/ (PAR! K, 7) «PAR(K,6) ) 

PER ( K , 13) = 1.0/PAR (K, 10 )-PER(K, 12) 

6A K = K + 1 

T E R ( L » 10) = PAR( 1,6) 

66 SPEC! 1 ) = 1. C/PER ( INU, 13) 

SPEC(2)=1.C/PER( IND+1, 13) 

CALI SET ( PAR! IND, 1 ) ,SPEC, PAR! IND,1 1 ) ,SARCA( I ) , TEN! L,5 ) ) 

CALL SET (PAR! IND, 3) ,PFR( IND, 11) ,PAR( IND,1) ,TER(L,5) ,TER(L,7) ) 

I F ( RE- 1)70,71,70 

71 SPEC ( 1 ) = — P A R ( INU,8)+PAR( IND » 9 ) *PER ! IND, 11) 

SPCC ( 2 ) = — P AR ( IND+ 1 , 8 ) + P AR ( IND+ 1,9)*PCR(IN0+1,11) 

CALL SET (PAR! IND, 6) , SPEC, PAR! IND,l),TER(L,5),TER(L,10)) 

7 C K=IND 

DC 2C J= 1 , 2 


5000 

5001 

5002 
5 003 
500 A 

5005 

5006 
5 007 

5008 

5009 

5010 

5011 

5012 

5013 
501A 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 
502 A 

5025 

5026 

5027 

5028 

5029 

5030 
5C3 1 

5032 

5033 
503A 

5035 

5036 

5037 

5038 

5039 
50A0 
50 A 1 
5CA2 
50A3 
50AA 
50 A 5 
50 A 6 
50 A 7 
5CA8 
50 A 9 
505C 

5051 

5052 

5053 
505A 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 
506A 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 
50 7 A 
5075 
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A( J, /) =PAR(K, 13)**2 5076 

A( J+2, 7 ) =2 . C* A ( J,7)»PER(K, 12) 5077 

A( J+4,7)=( 1 .C-PAR ( K, 1C ) )/PAR(K f lC)*A(J+2,7) 5078 

A { J f 1 ) = 1 • 0 5 079 

A ( J + 2 ) =0 . C 5080 

A(J+4)=C.C 5081 

A( J,2)=LCGF(PAR(K f 1) ) 5082 

A ( J +2 » 2 ) = l • G 5 jB3 

A ( J +4 , 2 ) =C .C 5084 

PC 5 L i v = 3 , £ 50P6 

A( J,N)=A( J v 2 ) •* C K— 1 ) 5086 

A ( J + 2 » M ) = A(J f 2) ** ( M— 2 ) *FLCATF(M-1) 5.87 

5C A( J+4,M)=A( J+2v*)/A( J* ?)*FLOATF(K-2) 5 O 88 

2C K = K + 1 5 39 

CALL KGAGS ( A , fc , ANS ) 5090 

T CM L, 2) -ANSI 1 ) 5:91 

SPEC=LCGF(TCM(L,5) ) 5092 

CC ? 1 J = 2 , 6 5 93 

21 TLHL, 2)=TCHL,?)+ANS(J)*SPFC*«( J-1) 5094 

TCML ,c) = l . 98726* HC-1000#0*TEM (L»2)/294.98**2 5*95 

I F ( TEK ( L » 2 ) ) 9C » 9G f 2 3 5096 

23 T‘I V (L,2)=SLRTF(TFM(L|2)) 5«-97 

I F ( L-2 ) 25 » 24 , 24 5093 

24 ir(TEM(L»2)-TEML-l»2) ) 9C , 2 5 » 25 5 099 

25 TEML,l)=TCM(l,2)+PAR(2,15)*SARFA( I )/( 32 . 1 74*TEK ( L , 5 ) ) 5100 

TFML, J)=PAR(2,15) bid 

TEML,4)=TFM(L, 2 ) *32 . 1 74/TEM L * 3 ) SIC 2 

TCML,6) = PC/TFML,5) 5 1 u 3 

rr-P(L,9)=PAR(2»5) 5104 

T E N ( L )=SAREA( I ) 5 X >5 

1 L = L+1 5 1 06 

9C L = L- 1 5107 

IN=L 5108 

CC 3C 1=1, IN 5109 

P AR ( I , 1 ) = T F MM ( I ) 5110 

DC 30 J = 2 » 11 5111 

3C P A i< ( I , J)=TFM{ I , J-1) 5 H 2 

RETURN 5U3 

c 5114 

c 5115 

c 5116 


SUBROUTINE SET ( ONE , TWO, THREF , ARG ,hAL ) 5117 

c 5118 

C (LbEC FOR AREA RATIO INTERPOLATION ONLY) 5119 

C SETS UP ALL 4 BY 5 MATRICES 5120 

c 5121 

c 5122 

CIMfNSICN A(fc f 7) ,ANS(6),CNE(2) f TWO C 2 ) , THREEI2) 5123 

00 P J = 1 » 2 5124 

A(J,5)=LCGF(0NF(J) ) 5125 

A ( J + 2 , 5 ) =Tl*Q ( J ) 5126 

8 A(J t 2)=LCGF(THREE(J) ) 5127 

DC l 1=1,2 5128 

A(l,l)=l.C 5129 

A(I+2»1)=C.C 51 30 

A(I+?,2)=1.C 5131 

CC 1 J = 2 » 3 5132 

A( I , J ♦ 1 ) = A ( I # 2 ) ** J D 133 

A( 1+2,J+1)=A( I,2)**(J— 1)*FlCATF(J) 5134 

1 CGNTINLE 5135 

CALL MG AUS ( A * 4 , ANS ) 5136 

HAL = ANS ( 1 ) 5137 

SUM=LOCF( ARG) 5138 

CC 1C J= 1 , 2 5139 

1C HAL=HAL + SUM**J*( ANSI J+l) ) 3140 

HAL=EXPF(HAL) 5141 

RETURN 5142 

C 5143 

C 5144 

C 5145 
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SLBKUUT INE MG At S ( A , N , AN S ) 5146 

C 5147 

C (USED FOR AREA RATIO INTERPOLAT ICN ONLY) 514 8 

C SOLVES FOR INTERPOLATION COEFFICIENTS 5149 

C 5150 

C 5151 

C I PENS ION A ( 6 , 7 ) , ANSI 6 ) 5152 

CC 1 1=1, N 5153 

1 ANS(I)=0.0 5154 

DO 1C 1 = 1, N 5155 

DC 9 J = I , N 5156 

M I,J+1) = A(I, J+l)/A( I, I) 5157 

IF(I-N) 9 , 2C » 9 5158 

9 CONTINUE 5159 

K= I + 1 5160 

DO 8 I I = K , N 5161 

CC 3 J J= I » N 5162 

8 A( II, JJ+1)=-A( II, I ) * A ( I,JJ+1)+A( II , JJ+1) 5163 

1C CONTINUE 5164 

?C ANS(N)=A{ I , J + l ) 5165 

I F ( N— 1)31,30,31 5166 

3C RETURN 5167 

31 J = N- 1 51 6a 

I I =J 5169 

CC 11 1=1, II 5170 

K = J + 1 5171 

00 12 M= 1 , I 5172 

ANSI J ) = ANS ( K ) * A ( J,K)+ANS( J) 5173 

12 K = K+ 1 5174 

ANSI J)=A( J,K)-ANS( J) 5175 

11 J=J-1 5176 

RETURN 5177 

C 5178 

C 5179 


SUIRCUT INE EXIT! 

C 

C (USED FUR AREA RATIO INTERPOLATION ONLY) 

C OUTPUTS DATA FOR ASSIGNED AREA RATIOS 

C 

C 

COMMON C 

EQUIVALENCE (IN, CI6C46)), (MAY, C(1767)) 

FGU I VALFNCE (PAP(l), C(837C))« (PAR(208), C ( 85 77 ) ) 
ECU I VALENCE ( LEN,C ( 1 76fc ) ) , (ME, C(1769)) 

C I MENS ION PARI 13,16), NN(13) 

C MAY MUST CCll AL 2 

C IN MUST FCLAL NARFA 

PC WRITE OUTPUT TAPE 6,23 
? 3 FORMAT ( 6FCAE/AT,9X, 13F9.3) 

CALL VAR ( 1,6) 

WRITE CUTPLT TAPE 6 , 24 , ( PAR ( I , 2 ) , I = 1 , I N ) 

24 FORMAT ( 15F I V AC , LB-SEC/LB 1 3F 9 . 1 ) 

WRITE CUTPLT TAPE 6 , 25 , ( PAR ( I , 3 ) , I = 1 , I N ) 

25 FORMAT (15F I, LB-SEC/LB 13F9.1) 

CC 61 1=1, IN 

61 N'N ( 1 ) =PAR ( 1 , 4 ) + • 5 

51 WRITE CUTPLT TAPF fc , 2 1 , ( NN ( I ) , I = 1 , I N ) 

21 FORMAT (15F CSTAR , FT/SEC 1319) 

WRITE CUTPLT TAPE fc , 22 , ( P A R ( I , 5 ) , I = 1 , I N ) 

22 rCKMAT ( 3H CF, 12X, 13F9.3) 

2 WRITE CUTPLT TAPE fc,10 

1C FORMAT ( 5HCPC/P, 1CX ) 

CALL VAR ( 6 * 6 ) 

WRITE CUTPLT TAPE 6,11 

11 FORMAT ( 8H P, ATM ,7X) 

CALL V Ak ( 7 , 6 ) 

CC 60 1 = 1 , IN 
6C NN ( I ) = P AR ( I, 8) + . 5 

WRITC CUTPLT TAPE 6 , 1 2 , ( NN ( I ) , I = 1 , I N ) 

12 FORMAT ( 9H T, CFO K,6X,13I5) 

WRITE CUTPLT TAPE 6 , 13 , ( PAR ( I , 9 ) , I =1 , I N ) 

13 FORMAT ( 9F H, CAL/G , 6X , 13F9. I ) 

WRITF CUTPLT TAPE o , 14 , ( P AK ( I , 1 0 ) , 1= 1 • IN ) 

14 FORMAT (15F S, CAL/ ( G ) ( K ) 13F9.4) 

WRITE CUTPLT TAPE 6 , 1 5 , ( PAR ( I , 1 1 ) , I = 1 , IN ) 

15 FORMAT ( 10F M, MOL WT, 5X, 13F9.3) 

RF 1 URN 


5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 
52C5 

5206 

5207 

5208 
52C9 

5210 

5211 

5212 

5213 
52 14 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 


C 

C 

c 
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APPENDIX B 


PROGRAM LISTING FOR BCREAD (A,B) AND BCDUMP (A,B) 


BINARY CAkD NO. BCREADOO 





00006 


ENTRY 

BCREAD 

TRANSFER VECTOR 




« INARY CARD NO. bCKEADOl 




COOOo 

25 A 626266060 

EOFF 



COCCI 

665125515160 

WRERK 



00002 

0 OOOOC 0 00000 


PZC 


0000 3 

0 00000 0 00000 


P/E 


COCOA 

0 00000 0 OOOOC 


P/E 


00005 

22235 1252 12A 


BC1 

1» BCREAD 

C v. C 06 

-063A JO l 00002 

BCRE AL) 

SXD 

*-4, l 

oooo / 

-0634 00 2 00003 


SXD 

*-4,2 

00 C lo 

-0634 00 A 0000 A 


SXD 

*-4 , 4 

OOC 11 

0500 00 A 00002 


CLA 

2,4 

00012 

CA02 CO A 00001 


SUR 

1,4 

oocn 

OAOO 00 0 000A5 


ADD 

ONE 

0 0 C 1 A 

0767 00 0 00022 


ALS 

1 B 

GOG 1 5 

0602 00 0 00051 


SLW 

102 

OOC 16 

0500 00 A 00001 


CLA 

1,4 

CO ^ 1 7 

-0320 00 0 OOOAA 


ANA 

MASKA 

00020 

-0501 00 0 00051 


ORA 

102 

00021 

-053A 00 A 000A5 


LXD 

ONE, 4 

c002? 

0762 00 0 01222 

RC AD 

R T BA 

2 

0002 3 

-073A 00 1 00000 


PDX 

0,1 

BINARY CARD NO. bCRE AD02 




000 2 A 

-3 00026 1 00033 


T XL 

LESS22, 1,22 

00025 

0621 00 0 000A7 

GOOF 

STA 

1022 

00'' 26 

0 5 AO GO 0 000A6 


RCHA 

1022-1 

00027 

007 A 00 2 00052 


TSX 

ERR, 2 

00030 

OAOO 00 0 000A3 


ADD 

MINPLS 

00031 

-0320 00 0 000 A 2 


ANA 

MASR 

00032 

0020 00 0 00022 


TRA 

READ 

000 3 3 

0601 00 0 00051 

LESS22 

STO 

102 

OOC ‘3 A 

05 AO 00 0 00050 


RCHA 

101 

OOC 35 

00 7 A 00 2 00052 


TSX 

ERR, 2 

OOC 36 

-053A 00 1 00002 


LXD 

BCRE AD-4 , 1 

00037 

- 0 5 3 A 00 2 0000 3 


LXD 

BCRE AD-3 , 2 

OOCAO 

-0 5 3 A jO A OOOOA 


LXD 

BCRE AD-2 , 4 

0 0 0 A 1 

0020 00 A 00003 


TRA 

3,4 

COCA 2 

♦0/777777777 7 

MASR 

OCT 

077777777777 

uOOA 3 

♦077752000026 

M1NPLS 

OCT 

0/7752000026 

0 0 0 A A 

♦000000777777 

MASKA 

OCT 

000000777777 

C0GA5 

+000000000001 

ONE 

OCT 

1 

000A6 

-2 0 0 0 u 2 2 oOcOO 


IOSPN 

0,0,2 

000A7 

3 00026 0 00000 

1022 

I OR T 

**,0,22 

BINAKY CARD NO. BCRE ADO 3 




U0050 

-2 00002 2 00000 

101 

IUSPN 

0,0,2 

C0C5 1 

0 00000 0 00000 

102 

P/E 


00 05 2 

0u60 00 0 00052 

ERR 

TCOA 

» 

00053 

0030 00 0 00056 


TEFA 

EOFT 

0C05A 

0022 00 0 00061 


FRCA 

OUT 

00055 

0020 00 2 00001 


TRA 

1,2 

00056 

0500 00 0 00060 

EOFT 

CLA 

BSR2 

00057 

00 7 A 00 A 00000 


CALL 

EOFF 

00C60 

0 76A 00 0 01202 

BSR2 

BSRA 

2 

00061 

1 GOCOl A 00062 

OUT 

TXI 

*♦1,4,1 

00062 

0 76 A 00 0 01202 


BSRA 

2 

C0063 

-3 00007 A 00022 


TXL 

READ, 4, 7 

0006 A 

0 0 7 AGO A 00001 

PRINT 

CALL 

WRERR , ME SS 

0u065 

C 07A00 0 00066 




00066 

0151252A6AA5 

MESS 

BCI 

4 , 1 REDUNDANT A2 IN BCREAD 

00067 

242145636021 




00070 

02603 1 A 56022 




cOO 7 1 

235125212A60 


END 
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ASSEMBLY OF BCDUMP SUBROUTINE 


BINARY CARD NO. BCDUMPOO 

00005 ENTRY BCDUMP 

TRANSFER VECTOR 
BINARY CARD NO. BCDUMP01 


00000 

7A6325623A60 

(TES) 



00001 

0 00000 0 

00000 


PZE 


00002 

0 00000 0 

00000 


PZE 


00003 

0 00000 0 

ooooo 


PZE 


0000 A 

22232A6AAAA7 


BCD 

1 BCDUMP 

00005 

-0634 00 l 

00001 

BCDUMP 

SXD 

*-4,1 

00006 

-063A 00 2 

00002 


SXD 

*-4,2 

00007 

-06 3 A 00 A 

00003 


SXD 

*-4,4 

00010 

0622 60 0 

ooooo 


XEC* 

S(TES) 

00011 

-053A GO 2 

00123 


LXD 

83,2 

00012 

-3 111Tb 2 

00020 


T XL 

*+6,2, —2 

00013 

0500 00 0 

00 1 7 A 


CLA 

WTBA5 

00 0 1 A 

0601 00 0 

00103 


STO 

DARN 

00015 

0500 00 0 

00175 


CLA 

RTDA5 

00016 

0601 00 0 

00170 


STO 

DARN2 

00017 

0621 00 0 

00165 


STA 

ERR 

00020 

-053A 00 A 

00003 


LXD 

BCDUMP-2 , 4 

00021 

0500 00 0 

00162 


CLA 

61 TT 

00022 

0622 00 0 

000A7 


STD 

CHAN 

00023 

0621 00 0 

00116 


STA 

LASTC 

BINARY CARD NO. BCDUMP02 




0002 A 

0500 00 A 

00001 


CLA 

It 4 

00025 

073A 00 2 

OOOOO 

JAY 

PAX 

0,2 

00026 

0A02 00 A 

00002 


SUB 

2,4 

00027 

073A 00 A 

00026 

DM 22 

PAX 

22,4 

00030 

1 00001 A 

00031 


T X I 

*+1,4,1 

00031 

053A 00 1 

00027 


LXA 

DM22, 1 

00032 

1 00500 1 

00033 


TXI 

*+1,1,320 

00033 

-063A 00 1 

00126 


SXD 

WD1, l 

0003A 

063A 00 2 

00126 

LOOP 

SX A 

WD 1 , 2 

00035 

053A 00 l 

00027 


LXA 

DM22, 1 

GOO 36 

0600 00 1 

00156 

CLEAR 

STZ 

GP,1 

00037 

2 00001 1 

00036 


T I X 

CLEAR, 1,1 

000 AO 

053A 00 1 

00027 

MORE 

LXA 

DM22, l 

000 A l 

-3 00026 A 

00116 


TXL 

LASTC, 4, 22 

000A2 

063A 00 2 

000A3 

STORE 

S X A 

*+ 1 , 2 

00043 

0500 00 0 

OOOOO 


CLA 

* • 

000 AA 

0601 00 1 

00156 


STO 

GP, 1 

000A5 

1 00001 2 

000A6 


TXI 

*+1,2,1 

000A6 

1 77777 1 

000A7 


TXI 

* + lt 1,-1 

000 A 7 

3 00000 1 

000A2 

CHAN 

TXH 

STORE, 1,0 

BINARY CARD NO. 6CDUMP03 




00050 

053A 00 1 

00116 


LXA 

last:,i 

00051 

0500 00 0 

0016A 


CLA 

HUNBIT 

00052 

0771 00 0 

00001 


ARS 

1 

00053 

-3 00 1 A3 1 

00055 


TXL 

*+2,1 ,99 

0005 A 

1 7763A 1 

00052 


TXI 

*-2,1,-100 

00055 

0621 00 0 

00157 


STA 

GP + 1 

00056 

0500 00 0 

00162 


CLA 

BITT 

00057 

0771 00 0 

00001 


ARS 

1 

00060 

-3 00011 1 

00062 


TXL 

*+2,1,9 

00061 

1 77766 1 

00057 


TXI 

»-2, 1,-10 

00062 

0601 00 0 

00160 


STO 

W0RD3 

00063 

0500 00 0 

00163 


CLA 

BITU 

0006 A 

0771 00 0 

00001 


ARS 

1 

00065 

-3 00000 1 

00067 


TXL 

*+2,1,0 

00066 

1 77777 1 

0006 A 


TXI 

*-2 , 1 t-1 

00067 

-0602 00 0 

00160 


ORS 

W0RD3 

00070 

053A 00 1 

00116 


LXA 

LASTC, 1 

00071 

1 00001 1 

00072 


TXI 

*+1.1*1 

00072 

-3 017A7 1 

0007A 


TXL 

*+2,1,999 

00073 

053A 00 1 

00162 


LXA 

BITT, 1 


BINARY CARD NO* BCDUMP04 


00074 

0634 00 l 00116 


SX A 

LASTC, 1 

00075 

0534 00 1 00027 


LXA 

DM2 2, 1 

00076 

-0500 00 0 00126 


CAL 

WD1 

00077 

0361 00 1 00156 

ADD 

ACL 

GP , 1 

00100 

2 00001 1 00077 


TIX 

ADD, 1,1 

00101 

0602 00 0 00127 


SLW 

CKSUM 

00102 

0534 00 1 00025 


LXA 

JAY,1 

00103 

0766 00 0 01223 

DARN 

WTBA 

3 

00104 

0540 00 0 00161 


RCHA 

OUTPUT 

00105 

0060 00 0 00105 


TCOA 

• 

00106 

0022 00 0 00165 


TRC A 

ERR 

00107 

-3 00026 4 00112 


T XL 

BACK, 4, 22 

00110 

1 77752 4 00111 


T X I 

*+i, 4,-22 

00111 

0020 jO 0 00034 


TRA 

LOOP 

00112 

-0534 00 1 00001 

BACK 

LXD 

BCDUMP-4 , 1 

00113 

-0534 00 2 00002 


LXD 

BCDUMP-3 , 2 

00114 

-0534 00 4 00003 


LXD 

BCDUMP-2,4 

00115 

0020 00 4 00003 


TRA 

3,4 

00116 

-0754 00 4 00000 

LASTC 

PXD 

0,4 

00117 

0402 00 0 00125 


SUB 

D22 

BINARY CARD NO. 6CDUMP05 




00120 

0622 00 0 00047 


STD 

CHAN 

00121 

1 00500 4 00122 


TXI 

*+1,4,320 

00122 

-0634 00 4 00126 


SXD 

WD1 , 4 

00123 

1 77300 4 00124 


TXI 

*+1,4,-320 

00124 

0020 00 0 00042 


TRA 

STORE 

00125 

+000026000000 

D22 

OCT 

26000000 

00126 

0 00000 0 00000 

WD1 

PZE 


00127 


CKSUM 

BSS 

23 

BINARY CARD NO. BCDUMP06 




00156 

-020041004040 

GP 

OCT 

420041004040 

00157 

+104020400000 


OCT 

104020400000 

00160 

0 00000 0 00000 

W0RD3 

PZE 


00161 

0 00033 0 00126 

OUTPUT 

I OCD 

WD 1 , 0 , 27 

00162 

+200000000000 

BITT 

OCT 

200000000000 

00163 

+000020000000 

BITU 

OCT 

20000000 

00164 

+000000002000 

HUNBIT 

OCT 

2000 

00165 

0764 00 0 01203 

ERR 

BSRA 

3 

00166 

1 00001 1 00167 


TXI 

*+1,1,1 

00167 

-3 00007 1 00103 


TXL 

DARN, 1,7 

00170 

0762 00 0 01203 

DARN2 

RT DA 

3 

00171 

0540 00 0 00173 


RCHA 

SKIP 

00172 

0020 00 0 00102 


TRA 

DARN-1 

00173 

0 00000 0 00000 

SKIP 

I OCD 

0,0,0 

00174 

0766 00 0 01225 

WTBA5 

WTBA 

5 

00175 

0762 00 0 01205 

RTDA5 

RTDA 

5 


END 


APPENDIX C 


CORRECTIONS TO THE IBM 704 PROGRAM 


On page 53, replace card number 0384\> statement number 729 with: 

729 EQRAT = 0 F*VXMIN + VFMIN 
IF(EQRAT) 9050, 745, 9050 

9050 EQRAT * ABSF((0 F*VXPLS + WPLS ) /EQRAT) 

On page 61, insert the following statement between card numbers 1279 and 

1280: 

DEL N(J) = 0. 0 

On page 62, replace card number 1418, statement number 1126 with: 

IF(EN LN(J) )2125, 1126. 2125 
2125 P = P + EXPF (EN LN(J)) 

1126 CONTINUE 

Also, replace card numbers 1461, 1462, and 1463 containing statement numbers 149, 
150, and 151, respectively, with: 


149 IF (C0EFT(4.J)-T) 2153,170,170 

2153 IF (EN(J-I)J 170,153,2154 

2154 IF (C0EFT(4, J)+100. 0-T) 2155,2155,2157 

2155 EN(J)=EN(J-1) 

CALL BYPASS (J,3) 

J=J-1 

CO TO 3156 

2157 EN( J-1)=EN( J-l)/2.0 
EN( J)=EN( J-l) 

T LN=L0GF ( COEFT ( 4 , j) ) 

CALL BYPASS (J, 3) 

GO TO 42 

150 IF (COEFT (5 , j) -C0EFT(4, J+l )) 153, 151, 153 

151 IF (T- COEFT ( 5, J) ) 3153,170,170 

3153 IF (EN(J+1)) 170,153.3154 

3154 IF(T+100X) -C0EFT(5, JJ ) 3155,3155,3157 

3155 EN(J)=EN(J+1) 

CALL BYPASS (J, 3) 

J=J+1 

3156 CALL BYPASS (J, 2) 

EN(J)=0. 0 

DEL N( J)= 0. 0 
GO TO 42 

3157 EN(j+l)=EN(j+l)/2. 0 
EN ( J) =EN ( J+l ) 

T LN=L0GF ( COEFT ( 5 , J ) ) 

CALL BYPASS (J, 3) 


69 


GO TO 42 


On page 63, replace card number 1529 with: 

IP (H0(J) - S(j) - H0(K) + S(K) - DEL N(K)) 164, 164, 170 


On page 64, replace card number 1709, statement number 309 with 

309 POP ( 25 ) = PCP(IADD) 

IADD = 25 

On page 73 following card number 2623, insert 

TC = 0.0 
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APPENDIX D 


SHIFT FUNCTIONS 


* 


ALS 


ARS 


LLS 


LRS 


PAP 


SHIFT 

FUNCTIONS 

COUNT 

5 

LBL 

SHIFT, N 

ENTRY 

ALS 

ENTRY 

ARS 

ENTRY 

LLS 

ENTRY 

LRS 

BCI 

1, SHIFT 

ARS 

18 

STA 

XCL 

*+3 

LDQ 

-1 

ALS 

** 

STQ 

-1 

TRA 

1,4 

ARS 

18 

STA 

XCL 

*+3 

LDQ 

-1 

ARS 

** 

STQ 

-1 

TRA 

1,4 

ARS 

18 

STA 

XCL 

*+3 

LDQ 

-1 

LLS 

** 

STQ 

-1 

TRA 

1,4 

ARS 

18 

STA 

XCL 

*+3 

LDQ 

-1 

LRS 

** 

STQ 

-1 

TRA 

END 

1,4 
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TABLE I. - THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION AT ARBITRARILY 

ASSIGNED EXIT PRESSURE RATIOS 


CASE NO. 122 

1000. 

.0 

2.500 





CHFMICAL 

FORMULA 

FUEL 

N 

2 

H 8 

C 2 

FUFL 

N 

2 

H 4 


OXIDANT F 

2 




WT FRACTION 
(SEE NOTE) 
0.50000 
0.50000 
1.00^00 


ENTHALPY 
CAL/MOL 
12734. 800 
12050.000 
-3030.892 


STATE TEMP 
DEG 

L 298.15 
L 298.15 
L 85.24 


DENS I 1 Y 
K G/CC 
C. 786100 
1 . OC 3600 
1.540000 


0/F= 2.500000, PERCENT FUEL= 28.5714, EQUIVALENCE RATIO 1.4859, DENSITY= 1.2692 


PARAMETERS 


PC/P 

chamber 

1.000 

P, ATM 

68.05 

T, DEG K 

4416 

H, CAL/G 

27.0 

S, CAL/IGHK) 

2. 7353 

M, MOL WT 

20.488 

I DLM/DL P ) T 

0.03415 

(DLM/DLT )P 

-0.5392 

CP, CAL/IGHK) 

1.3049 

GAMMA 

1.1654 

MACH NUMBER 

0. 


CSTAR , FT/SEC 
CF 

AE/AT 

I VAC , LB-SFC/LB 
I, LB-SEC/LB , 


THROAT 

EXIT 

EXIT 

EXIT 

EXIT 

1.750 

3.000 

10.000 

30.000 

100.000 

38.89 

22.68 

6.805 

2.268 

0.6805 

4141 

3897 

3536 

3181 

2700 

-203.3 

-408.9 

-825. 1 

-1160.1 

-1476.4 

2.7353 

2.7353 

2. 7353 

2.7353 

2.7353 

20.794 

21.067 

21.672 

22.150 

22.483 

0.02750 

0.03768 

0.02128 

0.00973 

0.00218 

-0.4567 

-0.8183 

-0.4988 

-0.2470 

-0.0528 

1.2047 

2.2510 

1.5840 

1.0264 

0.5416 

1.1639 

1.1122 

1.1220 

1.1444 

1.2176 

1.000 

1.460 

2.164 

2.696 

3.216 

6846 

6846 

6846 

6846 

6846 

0.665 

0.915 

1.280 

1.510 

1. 700 

1.000 

1.158 

2.434 

5.446 

13.49 

263.2 

276.9 

324. 1 

360.0 

390.4 

141.6 

194.8 

272.3 

321.4 

361.7 


EXIT 

EX 1 T 

EXIT 

EXIT 

EXIT 

300.000 

1000.000 

3000.000 

10000.00 

30000.00 

0.2268 

0.0680 

0.0227 

0.0068 

0.0023 

2222 

1745 

1353 

1008 

761 

-1713.6 

-1922.2 

-2069.9 

-2193.0 

-2277.3 

2.7353 

2. 735 ■* 

2. 7353 

2.7353 

2.7353 

22.681 

22. 791 

22.796 

22.796 

22.796 

0.00289 

0.00012 

0. 

-0.00030 

0. 

-0.0645 

-0.0038 

-0.0001 

-G . 0000 

-0.0000 

0.5272 

0. 392 7 

0.3657 

0.3477 

0.3359 

1.2277 

1.2880 

1.3130 

1.3347 

1.3505 

3.817 

4.460 

5.204 

6.154 

7.171 

6846 

6846 

6846 

6846 

6846 

1 . 829 

1.935 

2.007 

2.065 

2.104 

30.68 

75.53 

169. 3 

408.6 

908.9 

410.9 

427.9 

439.2 

448.2 

454.2 

389.2 

411.8 

427.2 

439.5 

447.8 


DERIVATIVES 


(DLI/ULPOPC/P 


0.01280 

0.01191 

0.01099 

0.00975 

(DLT/DLPOPC/P 

0.04007 

0.03505 

0.0331 1 

0.02553 

0.01450 

(ULAR/DLPOPC/P 


-0. 

-0.00015 

-0.004 76 

-0.01216 

(DLCS/DLPOPC/P 


0.01076 

0.01076 

0.01076 

0.01076 

(DLI/UHC)PC/P« 


0.13504 

0.13488 

0.11696 

0.1179? 

( DL T /L)HC ) PC/P • 

0.17353 

0.18797 

0.10060 

0. 14296 

0.22061 

(DLAR/DHC)PC/P» 


0. 

-0.09074 

-0.04147 

0.01848 

(DLCS/DHCIPC/P* 
* ( HC IN KCAL/G) 


0.13879 

0.13879 

0.13879 

0.13879 

(DLI/DLPCPJS 


0.85914 

0.42165 

0. 19025 

0.12020 

(DLT/ULPCPJS 

-0.11440 

-0.11557 

-0.07620 

-0.08677 

-0.10900 

( DL AR/DL PCP ) S , 


0. 

0.47748 

0.70098 

0.75361 


0.00773 

0.00598 

0.00439 

0.U0317 

0.00223 

0.00162 

-0.00726 

-0.00707 

-0.02412 

-0.02684 

-0.02824 

-3.02923 

-0.02831 

-0.07716 

-0.03943 

-0.04077 

-0.04123 

-0.04162 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.12921 

0. 14773 

0.15516 

0. 16541 

0.17383 

0. 17959 

0.41811 

0.42957 

0.57665 

0.6192? 

0.65132 

3.67420 

0.17221 

C. 17573 

0.28483 

0. 3l50o 

0. 33870 

0. 35582 

0.13879 

0.13879 

0. 1 38 79 

0. 13879 

0.13879 

0.13879 


0.07938 

0.05592 

0.03903 

0.02812 

0.01978 

0.01440 

-0.17183 

-0.17693 

-0.22288 

-0.23840 

-G. 25074 

-0.25955 

0. 74188 

0.75864 

0.73737 

0.73348 

0. 72947 

0. 72605 


MOLE FRACTIONS 


Cl(G) 

0.00317 

0.00226 

0.00153 

0.00052 

C 2 ( G ) 

0.00275 

0.00242 

0.00195 

0.00048 

C 3 I G ) 

0.00340 

0.00491 

0.00632 

0.00109 

C1F1 (G) 

0.00693 

0.00588 

0.00480 

0.00180 

C 1F2 ( G ) 

0.0022? 

0.00230 

0.00235 

0.00103 

C1F3IG) 

0.00031 

0.00032 

0.00034 

0.0001 3 

CIF4IG) 

0.00000 

0.00001 

0.00001 

0 . 

C1H1 (G) 

0.00030 

0.00017 

0.00009 

0.00002 

CIH2IG) 

0.00010 

0.00006 

0.00004 

0.00001 

C1H31G) 

0.00001 

0 . 

0 . 

0 . 

C2H2IG) 

0.00277 

0.0029? 

0.00281 

0.00088 

C1NI (G) 

0.04162 

0.04023 

0.03739 

0.02026 

C2N2IG) 

0.00102 

0.00129 

0.00156 

0.00065 

Fi (G) 

0.08873 

0.07404 

0.06132 

0.04409 

F2(G) 

0.00001 

0 . 

0 . 

0 . 

H1(G) 

0.03864 

0.02858 

0.02048 

0.01385 

H?(G) 

0.01075 

0.00779 

0.00544 

0.00338 

H1CINKG) 

0.01947 

0.01963 

0.01898 

0.01058 

HIF1 ( G) 

0.6691R 

0.69620 

0.71795 

0.72281 

Nl (G) 

0.00028 

0.00015 

0.00008 

0.00003 

N2IG) 

0.10830 

0. 110P0 

0.11380 

0.1241 l 

N IF 1 ( G) 

0.00001 

0 . 

0 . 

0 . 

N1HI ( G) 

0.00005 

0.00002 

0.00001 

0 . 

Cl(S) 

0 . 

0 . 

0.00274 

0.05345 


0.00010 

0. 

0. 

0. 

0. 

0. 

0. 

0.00006 

0. 

0. 

0. 

0. 

0. 

0. 

0.00031 

0.00001 

0. 

0. 

0. 

0. 

0. 

0.00052 

0.00007 

0. 

0. 

0. 

0. 

0. 

0.U0047 

0.00034 

0.00027 

0.00U01 

0. 

0. 

0. 

0.00007 

0.00016 

0.00104 

0.00019 

0.00001 

0. 

0. 

0. 

0.00002 

0.00155 

0.00367 

0.00386 

G. 00386 

0.00386 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0.00018 

0. 

0. 

0. 

0. 

G. 

0. 

0.00808 

0.00106 

0.00004 

0. 

0. 

0. 

0. 

0.00022 

0.00003 

0. 

0. 

0. 

0. 

0. 

0.02832 

0.01555 

0.00556 

0.00018 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0.00667 

0.00075 

0.00002 

0. 

0. 

0. 

0. 

0.00156 

0.00013 

0. 

0. 

0. 

0. 

0. 

0.00462 

0.00L59 

0.00003 

0. 

0. 

0. 

0. 

0.7352? 

0.74853 

0.75650 

0.76061 

0.76074 

0.76074 

0. 76074 

o.oooui 

0. 

0. 

0. 

0. 

0. 

0. 

0.13254 

0.13829 

0.14030 

0.14108 

0.14111 

0.14111 

0.14111 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0.08104 

0.09445 

0.09468 

0. 09426 

0.09429 

0.09429 

0.09429 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED RUT WHOsF MULE FRACTIONS WERE LESS I HAN 0.000005 FOR ALL ASSIGNED CONDITIONS 


CIH41G) 


FUEL 

OXIDANT 

PROPELLANT 


C2.H4 ( G ) 


0.47R4 I58E-01 

0 . 

0. 1 366902E-O l 


N 1 F ? C G ) N1F3IG) N2F21G) N2F4IGI 

INPUT, G-ATOMS/G 


N 1 H 3 ( G ) 


H C 

0. 1289599E-00 0. 16638 38C-01 

0 . 0 . 

0. 3684569E-01 0. 4 75 382 3E-02 


U. 5263 l 58L-0 l 
0. 3759398E-01 


C ASF NO. 122 iOGP.O 2.500 

NOT C • HEIGHT FRACTION OF FUEL IN TOTAL FUELS AND UF OXIDANT IN TOTAL UXIDANTS 


73 


TABLE II . - THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION FOR ASSIGNED AREA RATIOS 
CASE NO. 122 1000.0 2.500 


FUEL N 
FUEL N 
OXIDANT F 


CHEMICAL FORMULA 
H 8 C 2 

H A 


WT FRACTION ENTHALPY 
(SEE NOTE) CAL/MOL 
0.50000 12734.800 

0.50000 12050.000 

1.00000 -3030.892 


STATE TEMP 
DEG K 

L 298.15 
L 298.15 
L 85.24 


DENSITY 

G/CC 

0.786100 

1.003600 

1.540000 


0/ F= 2.500000, PERCENT FUE L = 28.5714, EQUIVALENCE RATIU= 1.4859, DENSITY* 1.2692 


AE/AT 

2.500 

5.000 

1 o. 00 

15.00 

25.00 

o 

o 

• 

o 

50.00 

I VAC, LB-SEC/LB 

325.5 

356.7 

381.3 

393.4 

406.3 

416.5 

420.8 

I, LB-SEC/LB 

274.2 

316.9 

349.6 

365.7 

383. 1 

396.5 

402.2 

CSTAR, FT/SEC 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

CF 

1.289 

1.489 

1.643 

1.719 

1.800 

1.863 

1.890 

PC/P 

10.385 

26.779 

67.007 

115.336 

228.715 

426.098 

573.718 

P, ATM 

6.552 

2.541 

1.016 

0.5900 

0.2975 

0.1597 

0. 1186 

T, DEG K 

3524 

3220 

2877 

2634 

2332 

2083 

1964 

H, CAL/G 

-837.4 

-1127.4 

-1377.5 

-1510.0 

-1659.4 

-1779.7 

-1832.3 

S, CAL/ (G) (K) 

2.7353 

2.7353 

2.7353 

2.7353 

2.7 353 

2. 7353 

2. 7353 

M, MOL nr 

21.690 

22. 106 

22.403 

22.506 

22.628 

22.736 

22.766 


60.00 

424.0 

406.6 

6846 

1.911 


100.0 
432.2 
417.7 
6 846 
1.963 


300.0 

445.4 

435.6 

6846 

2.047 


500.0 

449.9 

441.8 

6846 

2.076 


732.716 1463.9 7 7 6550.05 2 13189. 17 


0.0929 

1867 

-1873.2 

2.7353 

22.782 


0.0465 

1601 

-1977.7 

2.7353 

22.795 


0.0104 
1119 
-2153.8 

2.7353 

22. 796 


0.0052 
940 
-2216.5 

2. 7353 

22.796 


INPUT, G-A TOMS/G 


FUEL 

OXIDANT 

PROPELLANT 


N 

0.47841 5 8F-0 1 

0 . 

0. 1366902E-01 


H 

0. 1289599E-00 

0 . 

0 • 3684569E-0 1 


0. 1663838E-01 

0 . 

0. 4753823E-02 


0 . 

0 • 5263 1 58E-0 1 
0. 3759398E-0 1 


CASE NO. 


122 1000.0 2.500 


NOTE 


WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


TABLE III. - THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION AT ASSIGNED EXIT PRESSURE 

RATIOS TAKEN FROM TABLE II 

CASE NO. 12? 1000.0 2.500 







WT FRACTION 

ENTHALPY 

STATE 

TEMP 

DENSITY 




CHEMICAL 

FORMULA 

(SCE NOTE! 

CAL/MOL 


DEG K 

G/CC 

FUFL 

N 

2 

H 8 

C 2 

0.5000C 

12734.800 

L 

298.15 

0.786100 

FUEL 

N 

2 

H 4 


0.50000 

12050.000 

L 

298.15 

1.003600 

OXIDANT 

F 

2 



1.00000 

-3030.892 

L 

85.24 

1.540000 


0/F= 2.500000, PERCENT FUEL= 28.5714, EQUIVALENCE RATIO= 1.4859, DENSITY= 1.2692 

PARAMETERS 



CHAMBER 

THROAT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

PC/P 

1.000 

1. 750 

10.385 

26.779 

67.007 

115.336 

228.715 

426.098 

573.718 

732.716 

1463.977 

6550.052 

13189.17 

P, ATM 

68.05 

38.89 

6.552 

2.541 

1.016 

0.5900 

0.2975 

0.1597 

0.1186 

0.0929 

0.0465 

0.0104 

0.0052 

T, DEG K 

4416 

4141 

3524 

3220 

2877 

2634 

2330 

2084 

1965 

1868 

1600 

1119 

940 

H, CAL/G 

27.0 

-203.3 

-837.4 

-1127.4 

-1377.5 

-1510.0 

-1659.4 

-1779. 7 

-1832.3 

-1873.2 

-1977.7 

-2153.8 

-2216.5 

S, CAL/(G)(K) 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

2.7353 

M, MOL WT 

20.488 

20.794 

21.690 

22.106 

22.405 

22.504 

22.625 

22.738 

22.769 

22.783 

22. 795 

22.796 

22.796 

( DLM/ULP) T 

0.03415 

0.02750 

0.02083 

0.01076 

0.00373 

0.00210 

0.00357 

0.00160 

0.00077 

0.00037 

0.00003 

0.00000 

0 . 

(DLM/ULT ) P 

-0.5392 

-0.4567 

-0.4R94 

-0.2707 

-0.0996 

-0.0466 

-0.0748 

-0.0389 

-0.0202 

-0.0103 

-0.0009 

-0.0000 

-0.0000 

CP, CAL/ (OIK) 

1.3049 

1.2047 

1.5637 

1.0808 

0.6727 

0.5157 

0.5431 

0.4784 

0.43/5 

0.4126 

0.3794 

0.3538 

0.3442 

GAMMA 

1. 1654 

1.1639 

1. 1225 

1.1410 

1.1844 

1.2277 

1.2244 

1.2431 

1.2608 

1.2745 

1.2990 

1.3270 

1.3391 

MACH NUMBER 

0 . 

1.000 

2.184 

2.644 

3.048 

3.281 

3.669 

3.995 

4.146 

4.278 

4.703 

5.804 

6.395 

CSTAR, FT/SEC 


6846 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

6846 

CF 


0.665 

1.289 

1.489 

1.643 

1.719 

1.800 

1.863 

1.890 

1.911 

1.963 

2.047 

2.076 

AE/AT 


1.000 

2.500 

5.000 

10.00 

15.00 

24.98 

40.02 

50.03 

60.02 

99.99 

300.0 

500.0 

IVAC, LB-SEC/LB 


263.2 

325.5 

356.7 

381.3 

393.4 

406.3 

416.5 

420.9 

424. 1 

432.2 

445.4 

449.9 

I, LB-SEC/LB , 


141.6 

274.2 

316.9 

349.6 

365.7 

383. 1 

396.5 

402.2 

406.6 

417.7 

435.6 

441.8 


DERIVATIVES 


(DLI/DLPOPC/P 


0.01280 

0.01095 

0.G099L 

0.00850 

0.00744 

0.00633 

0.00553 

0.00513 

0.00480 

0.00392 

0.00252 

0.00206 

( DLT/DLPC ) PC/P 

0.04007 

0.03505 

0.02524 

0.01595 

0.00080 

-0.00886 

-0.00477 

-0.01295 

-0.01817 

-0.02149 

-0.02565 

-0.02775 

-0.02852 

(DLAR/DLPCIPC/P 


-0. 

-0.00495 

-0.01115 

-0.02211 

-0.02957 

-0.02578 

-0.03136 

-0.03521 

-0.03765 

-0. 04038 

-0.04104 

-0.04134 

(DLCS/DLPOPC/P 


0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

0.01076 

(DLI/UHCJPC/P* 


0.13504 

0.11682 

0.11733 

0.12405 

0.13131 

0.14007 

0.14616 

0.14923 

0. 15185 

0. 15902 

0.17115 

0. 17544 

(ULT/UHUPC/P* 

0.17353 

0.18797 

0.14481 

0.20953 

0.33665 

0.43909 

0.41697 

0.47334 

0.51759 

0.54877 

0.59682 

0.64004 

0.65785 

( DL AR/DHC ) PC/P* 


0. 

-0.03993 

0.01013 

0.10733 

0.18947 

0.16928 

0.20680 

0.24002 

0.26378 

0.29957 

0.33010 

0.34362 

( DLCS/DHC ) PC/P* 
MHC IN KCAL/G ) 


0.13879 

0.13879 

0.13879 

0.13879 

0.13879 

0.13879 

0.13879 

0.13879 

0.13879 

0. 13879 

0.13879 

0.13879 

(PLI/DLPCPJS 


0.85914 

0. 18678 

0. 12537 

0.09086 

0.07565 

0.06067 

0.05040 

0.04613 

0.04287 

0.03480 

0.02237 

0.01826 

( DLT/DLPCP ) S 

■0.11440 

-0.11557 

-0.08727 

-0.10570 

-0.14500 

-0.17922 

-0.17383 

-0. 18979 

-0.20353 

-0.21356 

-0.22998 

-0.24640 

-0.25325 

(DLAR/DLPCPIS, 


0 . 

0. 70406 

0.75108 

0.75344 

0.73887 

0.75606 

0.75403 

0. 74700 

0.74174 

0. 73503 

0.73123 

0.72849 


MOLE FRACTIONS 


C 1 ( G ) 

0.00317 

0.00226 

0.00050 

0.0G013 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

C 2 ( G ) 

0.00275 

0.00242 

0.00046 

0.00008 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

C3 (G) 

0.00340 

0.00491 

0.00180 

0.00040 

0.00003 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

ClFl(G) 

0.00693 

0.00588 

0.00174 

0.00061 

0.00015 

0.00005 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

C 1 F2 ( G ) 

0.00222 

0.00230 

0.00100 

0.00051 

0.00032 

0.00037 

0.00038 

0.00013 

0.00006 

0.00002 

0 . 

0 . 

0 . 

C 1F3 ( G) 

0.00031 

0.00032 

0.00013 

0.00007 

0.00008 

0.00023 

0.00096 

0.00085 

0.00058 

0.00038 

0.00007 

0 . 

0 . 

C 1F4 ( G) 

0 . 

0.00001 

0 . 

0 . 

0 . 

0.00004 

0.00084 

G.U0248 

0.00309 

0.00343 

0.00380 

G. 00386 

0.00386 

ClHl(G) 

0.00030 

0.00017 

0.00002 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

CIH21G) 

0.00010 

0.00006 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

CIH3IG) 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

C2H2IG) 

0.00277 

0.00292 

0.00085 

0.00022 

0.00002 

0 . 

G. 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

CINl (G) 

0.04162 

0.04023 

0.01977 

0.00912 

0.00255 

0.00073 

0.00010 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

C2N21G) 

0.00102 

0.00129 

0.00063 

0.00025 

0.00007 

0.00002 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

F 1 { G ) 

0.08873 

0.07404 

0.04354 

0.02988 

0.01875 

0.01462 

0.00843 

0.00269 

0.00121 

0.00056 

0.00003 

0 . 

0 . 

F2 ( G ) 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

G. 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

Hl(G) 

0.03864 

0.02858 

0.01361 

0.00741 

0.00212 

0.00047 

0.00005 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

H2(G) 

0.01075 

0.00779 

0.00332 

0.00174 

0.00044 

0.00008 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

H1C1NKG) 

0.01947 

0.01963 

0.01035 

0.00516 

0.00152 

0.00039 

0.00005 

0.00001 

0.00001 

G. 

0 . 

0 . 

0 . 

H1F 1 ( G) 

0.66918 

0.69620 

0.72314 

0. 73374 

0.74516 

0. 74942 

0.75432 

0. 75869 

0.75981 

0. 76C32 

0. 76071 

0. 76074 

0. 76074 

Nl(G) 

0.00028 

0.00015 

0.00003 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

N21G) 

0.10830 

0.11080 

0. 12442 

0.13177 

0.13696 

0.13862 

0.13986 

0. 14072 

0.14094 

0.14103 

0. 14110 

0. 14111 

0. 14111 

N IF 1 ( G > 

0.00001 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

N1HKG) 

0.00005 

C. 00002 

0 . 

0 . 

0 . 

0.00000 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

Cl(S) 

0 . 

0 . 

0.05468 

0.07891 

0.09180 

0.09495 

0.09499 

0.09440 

0.09429 

0.09426 

0.09427 

0.09429 

0.09429 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED OUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.000005 FOR ALL ASSIGNED CONDITIONS 


C1H4IG) 

C2H4 ( G ) 

N 1 F 2 ( G ) 

N1F3IG) N2F2IG) 

N2F4I 



INPUT, 

G-ATOMS/G 




N 

H 

C 

F 


FUEL 

0.4784158E-01 

0. 1 289599E 

-00 0. 16638 38E-01 

0 . 


OXIDANT 

0 . 

0 . 

0 . 

0. 5263158E-01 

PROPELLANT 

0.1 366902E-0 1 

0. 3684569E 

-01 0.4753823E-02 

0. 3759398E-01 

CASE NO. 

122 1000.0 2. 

500 





NOTE. WEIGHT FRACTION OF FUFL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


75 


-0 TABLE IV. - SAMPLE H,P PROBLEM 

CD 

CASE NO. 122 1469.6 2. SCO 






WT FRACIICN 

ENTHALPY 

STATE 

TENR DENSITY 




CHCRICAL FORMULA 

(SEE NOTE) 

CAL/MOL 


LEG K G/CC 

FUEL 

N 

2 

f e C 2 

0.50LCC 

1273A.300 

L 

293.15 0.786100 

FUEL 

\ 

2 

F A 

vj • 5 0 u l C 

l2v.SC. GOO 

L 

298.15 1.003600 

OXIDANT 

F 

2 


1 .00000 

-303C.892 

L 

85. 2A 1.5A0000 




C/F= 2 • 5000C0 » 

PERCENT FUEL= 28.5714, ECU I VALENCE RATIO= 

1 .4859 

, DENS I T Y= 1.2692 


ECUILIBRILP T HERPCDYN AP I C PROPERTIES 


P, A ! ^ 

1C0.0 

68. C5 

30 . CO 

10. oc 

3.0C0 

l. .00 

C.3C00 

0.1000 

C .0300 

U.0100 

r, CEG K 

A A 8 A 

A A 1 6 

A272 

AC82 

38BC 

3706 

3525 

3371 

32 L 3 

3078 

H, CAL/C 

27.0 

27.0 

27.0 

27. C 

27.0 

27.0 

27.0 

27.0 

27.0 

27.0 

S, CAL/(G)(K) 

2.6961 

2.7353 

2.8151 

2.9235 

3.0438 

3. 15A9 

3.2781 

3.3918 

3.5175 

3.6332 

P, POL WT 

20.5E8 

20.A88 

20.2B3 

2C.C22 

19.756 

19.533 

19.31C 

19.125 

19.9A0 

18.788 

( ULP/DLP ) I 

0.032e0 

0.03415 

C. 03739 

0.CA21C 

0.0A722 

0.05161 

C.C5601 

0.05966 

0.06327 

0.06625 

(LLP/LLT )P 

-G.5C6C 

-0.5392 

-0.6172 

-0.733C 

-0.8693 

-0.9960 

-1. 1383 

-1.2692 

— 1 • A 1 3 l 

- 1 • 5 A A A 

CP, CAL/(G)(K) 

1 • 23 AO 

1 .30A9 

1.A7A7 

1.7A03 

2 . 0 7 7 1 

2.4238 

2.BA5A 

3.2672 

3.7690 

A. 2623 

GAPPA 

1. 16S0 

1. 165A 

1.1579 

1. 1463 

1.1367 

1.1307 

1.1228 

1.1162 

1.1097 

1.10A3 


PCLE FRACTIONS 


C 1 ( G ) 

C.0C2E9 

C.C0317 

0.CG376 

C.C0A51 

0.^0525 

0.00580 

0.00627 

C. 00657 

0 • l06 7 7 

0.0G68A 

C 2 ( G ) 

0.00261 

C.C0275 

0 .00300 

0.00321 

0.00330 

0.00328 

G.0C316 

0.00299 

0.00277 

0.0025A 

C3IC1 

0.0031A 

0*00340 

0.CC393 

0.G0A62 

0.0C5 35 

0.006C2 

0.0C67A 

0. 00740 

C. 00812 

0.00879 

CLF1 (G) 

0.00727 

C.0C693 

0.CC617 

0.00518 

0. GOA 19 

0 . 003 A 1 

0.00270 

C. 0021 7 

0.00169 

0.00134 

C1F2IG) 

0.0C266 

C.CC222 

C.0C151 

0.C009C 

0 • COO 52 

Z .000 32 

w. • 0 C C 1 9 

C. 000 12 

C • CuC 0 7 

0.00005 

CIF3IG) 

0 • 0 0 0 A A 

C.C0031 

0.0G01A 

C. 00005 

C.OOOC2 

C. 00001 

G. 

C. 

0. 

0. 

CIFA(G) 

0. COCCI 

C. 

C. 

0. 

0. 

C. 

G • 

C. 

C. 

. 

C IF 1 ( G ) 

O.CC032 

C.C0C30 

C .00026 

0.00021 

0.00015 

O.OOCli 

0.0CC07 

C. 00005 

C.0G003 

0.00002 

C1H2IC) 

O.CCOll 

C.00C10 

0.CC007 

C.C0005 

0.1-00C3 

C • 0 0 C C 2 

l.CCCOI 

L. 00001 

C. 

0. 

C1H3IC) 

O.OCOCl 

0.0CC01 

0 . 

C. 

0. 

G. 

0 . 

0. 

0. 

c • 

C2H2 ( L ) 

0.0C3C6 

0.C0277 

0.CL223 

0.00161 

0.001C9 

0.00075 

0 .00049 

C.G0033 

C. 00021 

L. 000 14 

C IN 1 ( G ) 

0.CACA9 

0.CA162 

O.OA 362 

0.C4556 

0. 04685 

C. 04741 

U.0A750 

0.04720 

0 • 046^4 

G. 04571 

C2N2 ( 0 ) 

C.0C1 16 

0.LC1C2 

0 . COO 76 

C . CU05^ 

0 • 0 0 0 3 A 

C.0002A 

0.CCC16 

0.00011 

C.000J7 

0.00C05 

FltC) 

0.0856 1 

C.C8873 

0.C9A96 

C. 10267 

0.11051 

0. 11724 

0. 12425 

0.1 3036 

0. 136 77 

0. 14237 

F2(G) 

C.0CCC1 

C.00GC1 

O.CCOCl 

0 . 

0. 

0. 

0. 

0. 

0. 

. 

H1IC) 

C. 03520 

C.C386A 

C.0A6A1 

C.C57A1 

0.G696Q 

C.080A1 

U. 09163 

0.10115 

C. 11075 

0. 11879 

H2(G) 

c . c i c e i 

O.C1C75 

0.01049 

C.0C98A 

0.V.C881 

C. 00772 

G.CC6A9 

0.00543 

0. 00438 

0. 00357 

H1C1NKC) 

0.02C62 

C.C19A7 

0.G1712 

0.G1A2C 

C. Oil 38 

0.00920 

0.00721 

0.00575 

0.U0446 

0. 00353 

H1F1IG) 

0.67AA? 

C. 669 18 

C. 65792 

0 • 64285 

0.6269? 

0.613CI 

0.59859 

C. 58619 

C. 57343 

0.56250 

N1(G) 

0.0CC28 

C.CCC28 

0.00027 

0.C0024 

0 • L002 1 

0.00018 

C.0CC1A 

C.O0012 

C.C00G9 

0.00007 

N2(G) 

C.lC8e3 

C. 1C830 

0. 10734 

C. 1C631 

0.1C5A6 

C. 10^87 

L. 1CA38 

0.10407 

C. 10383 

0.10370 

N 1 F 1 ( G ) 

0.0CCC1 

C.OOCOi 

0 . 

0 . 

0 . 

0 . 

C. 

0. 

C. 

C. 

NiHKG) 

0.0C0C6 

C.CC0C5 

0.0C0C3 

0.00CC2 

O.CGOul 

C.OOCOI 

0 . 

0 . 

0 . 

0. 


ADDITIONAL PRCFUC1S WHICH WERE CONSIDERED BUT WHOSE HOLE FRACTIONS WERE LESS I HAN 0.0C0C05 FOR ALL ASSIGNED CUNUIIIONS 
C1F4(C) L2H4(C) MF?IG) N 1 F 3 ( G ) N2F2IC) N2F4(G) N1H3IG) CKS) 


INPUT f G-ATLPS/G 



N 

H 

C 

F 

FUEL 

C.A78A158E-C1 

C. 12B9599E-0C 

C.1C63838E-C1 

C. 

CXICANT 

C. 

0 . 

0 . 

C . 5263 1 58C-C 1 

PRCPE LL AN I 

0.1366 9 C2E — 01 

C . 3684569E— 01 

0 • A 75 38 2 3F— u 2 

G.3759398E-01 


CASE NO. 122 l A 6 9 . 6 2.50C 


NOTE. WEIGH FRACTION OF* FUEL IN TOTAL FLFLS AND OF LX 1 D ANT IN TOTAL C.XICANTS 


TABLE V. - PROGRAM INPUT 


Card 

type 

Card name 

Optional 

card? 

Number of cards 

Card format 

1 

Reactant 

No 

1 to 30 

(1 to 15 oxidants) 
(1 to 15 fuels) 

(5(A2,F7.5),F7.5,A1,F9.5,A1,F8.5,A1,F8.5) 

Blank 

No 

1 


2 

Omit-Insert 

Yes 

Any 

(4(2A6,3X)) 

Blank 

No 

1 


3 

Problem (H,S;T,S;T,P;P,T;H,P; or DETN, case) 

No 

1 

( A5 , 15 ) 

a 4 

Schedule (of P c /P, or P, or T) 

No 

1 to 5 

(5F10.2) 

Blank a 

No 

1 


a 5 

Schedule of area ratios 

Yes 

1 to 3 

(5F10.2) 

Blank 3 

No 

1 


6 

Mixture (ft, 0/P, $F, P, T, code, debug) 

No 

Any 

(5F10.2,I5,16X,I1) 

Blank* 5 

No 

1 to 3 



a For DETN problems, the schedule cards and the blank card that follows them must be omitted. 
^There may be one, two, or three blank cards. 

(1) One blank card: Program returns to read another sequence of cards starting with type 3. 

( 2 ) Two blank cards: Program returns to read another sequence of cards starting with type 1. 

(3) Three blank cards: Program terminates. 



NASA-Langley, 1963 E-2040 


-<l 

CD 


TABLE VI. - EXAMPLES OF TYPICAL REACTANT CARDS 


Reactant formula 

Relative 

weights 3 

or 

moles 

Code 

for 

moles 

Enthalpy, 

cal/mole 

State 

Temper- 

ature, 

°K 

Fuel 

or 

oxi- 

dant 

Density, g/cc, or 
heat capacity. 
cal/(mole) (°K) 

Column 

1-2 

3-9 

10-11 

12-18 

19-20 

21-27 

28-29 

30-36 

37-38 

39-45 

46-52 

53 

54-62 

63 

64-71 

72 

73-80 

N 

2 . 

H 

4. 







0.5 


12050. 

L 

298.15 

F 

1.0036 

N 

2. 

H 

8. 

c 

2. 





.5 


12734.8 

L 

298.15 

F 

0.7861 

F 

2. 









1 . 


-3030.892 

L 

85.24 

0 

1.54 

N 

2. 









0.780881 

M 

0 . 

G 

298.15 

0 


0 

2. 









.209495 

M 

0 . 

G 

298.15 

0 


AR 

1 . 









. 009324 

M 

0 . 

G 

298.15 

0 


c 

1 . 

0 

2. 







.000300 

M 

-94051.8 

G 

298.15 

0 


H 

2. 









2. 

M 

0 . 

G 

298.15 

F 



a Relative weight of fuel In total fuels or oxidant in total oxidants as designated in column 72. 


